Discussion :

[IronHeavy]

Bonjour à tous,

Je dispose d'un USF contenant 18 ToggleButtons et 2 Listbox.

Je souhaiterai qu'en cliquant sur les ToggleButtons, leur Caption soient ajoutés ou supprimés de la ListBox2 selon leur valeur vraie ou fausse.

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
16
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    ListBox2.AddItem ToggleButton1.Caption
Else
       For j = ListBox2.ListCount - 1 To 0 Step -1
    ListBox2.Select ToggleButton1.Caption
    If ListBox2.Selected(j) = True Then
    'on Supprime l'élément selectionné dans la ListBox.
    ListBox2.RemoveItem (j)
    End If
Next j
End If
 
ToggleButton1.BackColor = IIf(ToggleButton1 = True, vbGreen, vbRed)
 
End Sub

Je pars de cette base, suis je dans la bonne voie?

Merci!

[patricktoulon]

que se passe t il si l'item correspondant a la caption n'existe pas ??

Code :

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

1
2
3
For j = ListBox2.ListCount - 1 To 0 Step -1
        If ListBox2.list(j,0)=ToggleButton1.Caption Then ListBox2.RemoveItem (j):exit for
  Next j

[IronHeavy]

Merci de votre retour si rapide!

A priori impossible, car à l'initialisation les ToggleButtons et la ListBox sont alimentés (True / False / Listindex) depuis le même tableau...

Votre code fonctionne parfaitement, merci!

Une suggestion pour dupliquer à tous les ToggleButtons (de 1 à 18)?

[patricktoulon]

alors si tu a x toglebutton il te faut soit écrire dans le code du module userform les évènements de chaque togle ou faire une classe control qui rassemblera tout les évènements en quelques lignes de code dans un module classe

[IronHeavy]

Ok, première solution éprouvée car dans mes cordes!

Je ne gère pas les modules de classes pour le moment... Mais vu la tournure de mes modules, il va bien falloir que je m'y intéresse!

Merci beaucoup des conseils!

[patricktoulon]

exemple simple de classe

dans ton userform tu a une listbox et x togglebutton

dans le activate du userform tu met

Code :

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

1
2
3
4
Dim cls As New Classe1
Private Sub UserForm_Activate()
cls.alltogle Me, ListBox1' adapte le nom de ta listbox 
End Sub

ajoute un module classe et met y cela dedans

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
16
17
18
19
20
21
22
23
Public WithEvents togle As msforms.ToggleButton
Public WithEvents liste As msforms.listbox
Dim cl(100) As New Classe1
 
Function alltogle(uf, listbox)
    For Each ctrl In uf.Controls
        If TypeName(ctrl) = "ToggleButton" Then
         i = i + 1:
         Set cl(i).togle = ctrl:
         set cl(i).liste = listbox
        end if 
  Next
End Function
Private Sub Togle_Click()
    If togle = False Then
        For i = liste.ListCount - 1 To 0 Step -1
            If liste.list(i, 0) = togle.Caption Then liste.RemoveItem (i)
        Next
    Else
        liste.AddItem togle.Caption
    End If
    'MsgBox "coucou"
End Sub

voila et c'est tout tu a le mémé évènement pour tes togglebuttons dans la classe