Bonjour

j'ai plusieurs toggleButton et je cherche à faire en sorte qu'un seul d'entre eux soit à 1 et donc le reste à 0

j'ai tenté avec cette commande mais ca fait planté le fichier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub SelectionnerModeleMultiModele_Change()
    For c = Support.Controls.Count - 1 To 0 Step -1
        If TypeName(Support.Controls(c)) = "ToggleButton" Then Support.Controls(c) = 0
    Next c
    SelectionnerModeleMultiModele = 1
End Sub
je précise que c'est un toggle crée en dynamique

quelqu'un a une solution?

merci