Userform Listbox Multiselect

Bonjour à tous,

Je suis en train de créer un fichier ou l'on trouve des catégories et des articles, en fonction de ce que l'on selectionne dans les catégories, une liste d'articles apparait, actuellement, je sais le faire avec une selection simple, j'aimerai maintenant pouvoir le faire avec une selection multiple au niveau de la catégorie.

Merci pour votre aide

Meumeu73.1

Bonjour

Un code à tester

Code:

---

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

Private Sub categories_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Categories.ListCount = 0 Then Exit Sub nb = 0 articles.Clear For i = 0 To Categories.ListCount - 1 If Categories.Selected(i) = True Then Remplirarticles (Categories.List(i)) End If   Next i   End Sub

---

Avec la propriété

Code:

---

Multiselect = fmMultiSelectMulti

---

JP014

Merci, ça fonctionne, je continue