Case à cocher excel 2007 Fermé

Question

Bonjour,

J'ai fais des cases à cocher sous excel 2007 mais je voudrais que ces lorsque l'une des valeurs vaut 1 ( true ) le chiffre qui est en G9 soit égale à G9-1 . Par exemple G9 vaut 15 je voudrais connaître le code qui permet de faire que g9=14 lorsque ma checkbox est = true.

J'ai donc : 


Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then

End If
End Sub


merci d'avance de votre aide
cordialement

pilas31 · Answer

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+

gégé · Answer

Merci beaucoup de la réponse .

bonne soirée

gégé · Answer

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.

pilas31 · Answer

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+

Case à cocher excel 2007

4 réponses

Discussions similaires

Newsletters