Case à cocher excel 2007

Bonjour,

Tout simplement :

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Cells(9, 7) = Cells(9, 7) - 1
    End If
End Sub

Mais attention à chaque fois que l'on coche on décrémente...

A+

Merci beaucoup de la réponse .

bonne soirée

une autre petite question, j'ai besoin de créer plein de formule comme celle-ci mais le problème lorsque je mets :

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Cells(9, 7) = Cells(9, 7) - 1
    End If
End Sub

ca fonctionne mais après si je metts

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Cells(9, 8) = Cells(9, 8) - 1
    End If
End Sub

ça ne fonctionne plus ?
Il faut-il séparer ou je ne sais quoi ? car j'ai juste copier coller mon code et modifier la case à modifier et cela ne fait rien.
je ne comprend vraiment pas là

merci de votre aide.

Bonsoir,

Il n'y a pas de raison que cela ne marche pas, en créant une deuxième et une troisième cases à cocher par exemple on peut renseigner les cellules voisines H9 et I9 :

Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        Cells(9, 8) = Cells(9, 8) - 1
    End If
End Sub
Private Sub CheckBox3_Click()
    If CheckBox3.Value = True Then
        Cells(9, 9) = Cells(9, 9) - 1
    End If
End Sub

Juste une remarque ce code agit sur la feuille active si l'on veut travailler sur une autre feuille par exemple une feuille qui s'appelle "Compteur" la syntaxe devient :

Sheets("Compteur").Cells(9, 9) = Sheets("Compteur").Cells(9, 9) - 1

A+