Discussion :

[Vincent32]

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 :

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

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

[Vincent32]

Bon j'ai trouvé une solution qui fonctionne :

Code :

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

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