Sélection et CheckBox

Bonjour à Tous,

Dans un USF se trouve une ListBox (liste de noms) et un CheckBox.
Si le CheckBox est activé alors tous les noms se trouvant dans la ListBox sont sélectionnés.
Comment est-ce réalisable, quel est le code ?

Merci d'avance pour votre aide !

Cordialement,

Hello,

Essaie ce code... à adapter.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CheckBox1_Click()   If CheckBox1 = True Then For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = True Next i Else For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = False Next i End If   End Sub

---

Bonne suite !

EDIT : Attention mettre dans la fenêtre des propriétés de la ListBox dans MultiSelect à 1 !

Anto.

Eh ben merci à toi, c'est parfait !
;)

Bonjour,

Tu peux aussi donner la valeur de la checkbox aux selections

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CheckBox1_Click()   Dim i As Integer   For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = CheckBox1.Value Next i   End Sub

---