Comment sélectionner toutes les occurrences d'une listbox ?

Bonjour,

J'ai créé un formulaire qui à son initialisation alimente une listbox. J'ai positionné un bouton pour que l'utilisateur soit à même de sélectionner toutes les occurrences de la listbox et un autre pour désélectionner tout.

Par contre, je ne sais pas quoi placer comme code pour sélectionner ou désélectionner toutes les occurences de la listbox.

J'ai cherché en vain.

Merci d'avance.

Code:

---

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

Private Sub BTN_SelectionnerTous_Click()   Dim i As Integer For i = 0 To MaListBox.ListCount - 1 MaListBox.Selected(i) = True Next i   End Sub Private Sub BTN_SelectionnerAucun_click() Dim i As Integer For i = 0 To MaListBox.ListCount - 1 MaListBox.Selected(i) = False Next i   End Sub

---

Bonjour,

pourtant ce n'est vraiment pas compliqué :

Code:

---

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

Private Sub ListeSelect(Choix As Boolean) With ListBox1 For N = 1 To .ListCount: .Selected(N - 1) = Choix: Next End With End Sub     Private Sub BoutonAucun_Click() ListeSelect False End Sub     Private Sub BoutonTous_Click() ListeSelect True End Sub

---

Edit : grillé entre temps par AlphaScorpi …


_______________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …