Boucle sur togglebutton situé dans userform

Bonjour à tous,

J'ai un userform qui contient 150 togglebutton nommés togglebutton1 ... toggle button150

Je réalise un test pour chaque togglebutton Mais plutôt que de réécrire le code pour chaque togglebutton, il doit y avoir un moyen de boucler sur chaque toggle button contenu dans le userform. Mais je ne sais pas comment faire voici le code que je veux faire pour chaque togglebutton :

Code:

---

1 2 3 4

If userform3.ToggleButtonX=true then worksheets("présentation").cells(lig,col).Value=Worksheets("présentation").cells(lig,col).value & "A" Userform3.ToggleButtonX = False end if

---

Si vous pouvez m'aider pour réaliser ma boucle ...

Par avance merci beaucoup

Bon j'ai trouvé une solution qui fonctionne :

Code:

---

1 2 3 4 5 6

Dim ole1 As Control For Each ole1 In UserForm3.Controls If Left$(ole1.Name, 12) = "ToggleButton" Then ole1.Value = True end if Next

---

Bonne soirée à tous