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!