Incrémenter un checkbox VBA

Version imprimable

Bonjour à tous. Mon problème est plutôt récurent car j'ai fait beaucoup de recherche sur les forums et je ne trouve pas de réponse :cry:

En fait mon objectif est de faire une boucle qui me permet d'incrémenter une valeur si l'utilisateur click sur le checkbox.
si il click sur le checkbox 1 la valeur B1 S'incrémente
si il click sur le checkbox 2 la valeur B2 S'incrémente
si il click sur le checkbox 3 la valeur B3 S'incrémente
etc.
et cela se répète sur 30 Checkbox.
Le problème c'est que avant même de faire la boucle il me pose un problème regarder mon code (juste pour l'essai)
Code:

1 2 3 4 5 6 7 8 9 Private Sub CommandButton2_Click() Dim i As Integer i = 1 If "checkbox" & i = True Then Sheets("feuil3").Range("B" & i).Value = Sheets("feuil3").Range("B" & i).Value + 1 i = i + 1 End If End Sub
Le problème c'est qu'il n'accepte pas "checkbox" & i. Il ne veut pas s'incrémenter.
J'ai tout essayé ("checkbox" & i), checkbox(i), etc. Il ne veut rien entendre...

Help :(

Salut the-geut et le forum

Code:

1
2
3
4
Private Sub CommandButton2_Click()
Dim i As Integer
i = 1
If Me.controls("checkbox" & i) = True Then

A+

14/04/2010, 14h08
the-geut

Merci de ta réponse Gorfael. Cependant le problème persiste.
J'ai un message d'erreur

Citation:

erreur de compilation:
Membre de méthode ou de données introuvable

Je programme depuis peu en VBA :oops: donc je pense que cela peut venir d'une erreur de syntaxe, car dans l'aide il me dit que cela pourrais venir d'une erreur d'orthographe
14/04/2010, 14h53
sabzzz

bonjour the-geut,

si tu n'as pas modifié le Name de ces controls
remplace"checkbox" par "CheckBox"
14/04/2010, 15h30
the-geut

Bonne remarque isabelle, mais en VBA les majuscules sont mise automatiquement si on les oublies.
Deplus lorsque je lance le débogueur il s'arrete à:
If Me.Controls("CheckBox" & i) = True Then
Donc pour cela doit venir de ce fameux controls qu'il ne reconnait pas.
14/04/2010, 15h45
sabzzz

Citation:

mais en VBA les majuscules sont mise automatiquement si on les oublies.

attention! ce n'est pas toujours le cas, surtout lorsque la chaine taper commence pas "

c'est sur une feuille de calcul ou sur un UserForm ?
14/04/2010, 15h53
the-geut

Quand je regarde dans le VBA projet je travail dans une feuil de calcul.

Cependant un eclairsissement sur ce qu'un userform ne me ferais pas de mal car j'ai du mal avec ce concept.:mrgreen:
14/04/2010, 16h21
sabzzz

ok, tu as mits les "CheckBox" sur une feuille de calcul,
si tu as créer les object avec la barre d'outils control la syntaxe est:

Code:

ActiveSheet.Shapes("CheckBox" & i).OLEFormat.Object.Object.Value

pour les UserForm je te conseil cette lecture
http://silkyroad.developpez.com/VBA/UserForm/
14/04/2010, 17h00
the-geut

8O Ca marche!
C'est fantastique tu vient de me faire gagner 2 jour ^^.
Tu vient de me prouver que j'ai encore beaucoup à apprendre
merci merci
Bizzz @+