High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Case à cocher excel 2007

Dernière réponse le 2 mar 2009 à 01:32:57 gégé, le 1 mar 2009 à 22:52:40 
 Signaler ce message aux modérateurs

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
Configuration: Windows XP
Firefox 2.0.0.20

Posez votre question Répondre

1

pilas31, le 1 mar 2009 à 23:25:35

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+ Cordialement,

   
Répondre à pilas31

2

gégé, le 1 mar 2009 à 23:43:16

Merci beaucoup de la réponse .

bonne soirée

   
Répondre à gégé

3

gégé, le 2 mar 2009 à 00:09:58

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.

   
Répondre à gégé

4

 pilas31, le 2 mar 2009 à 01:32:57

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+ Cordialement,

   
Répondre à pilas31
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net