Case à cocher excel 2007
gégé
-
pilas31 Messages postés 1878 Statut Contributeur -
pilas31 Messages postés 1878 Statut Contributeur -
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 :
merci d'avance de votre aide
cordialement
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
A voir également:
- Case à cocher excel 2007
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Insérer case à cocher word - Forum Word
- Raccourci clavier case à cocher - Forum Clavier
4 réponses
Bonjour,
Tout simplement :
Mais attention à chaque fois que l'on coche on décrémente...
A+
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+
une autre petite question, j'ai besoin de créer plein de formule comme celle-ci mais le problème lorsque je mets :
ca fonctionne mais après si je metts
ç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.
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 :
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 :
A+
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+
