Discussion :

[Vincent32]

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

[mercatog]

Dans ton cas, il faudra utiliser un module de classe qui permet de gérer tous tes togglebutton.

Fais une petite recherche sur ce forum, tu trouveras tout ce que tu veux. sinon, on va te proposer un code.

[Vincent32]

Ca m'a l'air compliqué tout ça !

Merci pour ta réponse

Par contre au niveau des mots clefs pour la recherche je ne vois pas désolé ... Car j'ai cherché à ToggleButton et fonction j'ai pas trouvé

[mercatog]

1. Insère un module de classe (par défaut nommé Classe1) (Menu Insertion > Module de classe)

Y insère ce code

Code :

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

1
2
3
4
5
6
7
Public WithEvents Tb As MSForms.ToggleButton
 
 
Private Sub TB_Click()
 
Tb.BackColor = IIf(Tb.Value, 255, &H8000000F)
End Sub

La procédure TB_Click() est le code générique qu'on va appliquer à tes togglebutton. (C'est ton code mais écris autrement)


2. Dans le module de ton userform

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Tb()
 
Private Sub UserForm_Initialize()
Dim i As Integer
Dim Ct As Control
 
For Each Ct In Me.Controls
    If TypeOf Ct Is MSForms.ToggleButton Then
        ReDim Preserve Tb(0 To i)
        Set Tb(i) = New Classe1
        Set Tb(i).Tb = Ct
        i = i + 1
    End If
Next Ct
End Sub

C'est à dire grosso modo, à l'initialisation de l'userform, on va instancier tous les contrôles de type ToggleButton par la classe Classe1 qui gère l'évènement Click.


PS. Il fallait chercher sur le forum "Module de Classe" tu auras d'autres exemples et tutoriels à étudier.

[Vincent32]

Merci énormément

Ca fonctionne du tonnerre !


Encore merci, merci et merci



Bonne soirée