Boucle sur Checkbox

Bonjour à tous,

Je bloque pour réaliser une boucle sur des checkbox.

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9

For i = 4 To 9 check = "CheckBox" & i If Worksheets("Informations").CheckBox & i.Value Then ..... End If     Next i

---

J'ai des checkbox qui commence a 4 jusqu'a 9

Je ne sais pas comment faire pour qu'il prenne en compte le
If Worksheets("Informations").CheckBox & i.Value Then

Quel erreur est-je commis?

Merci

guigui69

Bonjour guigui69,

Voici un lien utile

http://excel.developpez.com/faq/?page=OleObject

Code:

---

1 2 3 4 5 6

Dim i As Byte For i = 4 To 9 If Worksheets("Informations").OLEObjects("CheckBox" & i).Object Then .............. End If Next i

---

Cordialement