identifier une checkbox par un index

Bonjour,

Je travail sous excel VBA. J'ai sur une feuille plusieurs checkbox (checkbox1, checkbox2,.... jusqu'a 15).
j'aurais besoins de faire une boucle du genre :

Code:

---

1 2 3 4 5

For i = 1 to 15 if checkbox(i).value = True then une action end if Next

---

C'est à dire repérer les checkbox par leur numéro (ou un index s'il est possible d'en définir un pour chaque checkbox). Mais je ne sais pas quelle est la syntaxe du code en gras.

Après quelques recherches j'avais trouvé ça :

Code:

---

worksheets("feuil1").controls("Checkbox" & i).value

---

mais ça ne marche pas.
Quelqu'un aurait-il une idée ?
parceque jusqu'ici je me débrouillait avec les forum pour trouver les astuces, mais là rien...

Merci.

bonjour

essaye ça, à vérifier

Code:

---

1 2 3 4 5

For i = 1 to 15 if me.controls("checkbox" & i).value = True then une action end if Next

---

Merci de ta réponse rapide. j'essaye ça demain matin parceque là j'ai fait du VBA toute la journée :P

re:

pas la peine de tester, tu parles de feuilles et moi j'ai traduit en UserForm, je t'ai donné un code pour userform et pas pour des feuilles

il me faut un renseignement supplémentaire....

quels types de contrôle as tu utilisé : boite à outils de contrôle ou formulaire

Bonjour,

si c'est sur une feuille (donc pas sur un userform), je dirais qu'il convient d'utiliser la collection Shapes et non Controls.

merci

alors will, j'ai utilisé la boîte à outils de contrôles

bonsoir

Comment boucler sur les cases à cocher ?

bonne soirée
michel

Merci michel, ça marche nickel !

Donc j'ai utilisé cette méthode :

Code:

---

1 2 3 4 5 6 7 8

Sub BoucleCheckBox_V02() Dim i As Byte   For i = 1 To 3 MsgBox ActiveSheet.OLEObjects("CheckBox" & i).Name & ": " & _ ActiveSheet.OLEObjects("CheckBox" & i).Object.Value Next i End Sub

---

Enfin juste cette ligne précisément, que j'ai insérée dans ma boucle :

ActiveSheet.OLEObjects("CheckBox" & i).Object.Value

Merci à tous.