Bonjour à tous,

J'ai un userform qui contient près de 15 toggle button nommés ToggleButton1 ... ToggleButton150

J'ai le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub ToggleButton1_Click()
    With ToggleButton1
        Select Case .Value
            Case True
                .BackColor = RGB(255, 0, 0)
            Case False
                .BackColor = &H8000000F
        End Select
    End With
End Sub
qui permet de changer la couleur selon si le statut du togglebutton est vrai ou faux dès que l'on clique dessus

Est il possible de réaliser la même chose pour chaque togglebutton via une fonction ouo si je dois réécrire ce code pour mes 150 togglesbuttons

Je n'ai jamais fait de fonction et même si le tuto de SiljyRoad est bien réalisé il n'aborde pas les évènements des controles dans les fonctions c'est pourquoi je suis un peu perdu

PS si ça peut aider : je sais boucler sur les controles toggles buttons de mon userform via ce bout de code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
For Each ole1 In U3.Controls 'Boucle sur chaque controle du Userform3
                   If (Left$(ole1.Name, 12) = "ToggleButton" Then ole1.Value = True 'Test le nom du controle si le nom est correct alors la valeur du controle est égale à vrai
                Next 'controle suivant
Merci d'avance pour votre aide