Discussion :

[the-geut]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gorfael]

Salut the-geut et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[the-geut]

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

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

Je programme depuis peu en VBA 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

[sabzzz]

bonjour the-geut,

si tu n'as pas modifié le Name de ces controls
remplace"checkbox" par "CheckBox"

[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.

[sabzzz]

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 ?