recupérer des items listbox

[dood]

Bonjour à tous,

Voila, ma question est simple (?):
-dans un userform, j'ai une listbox sur laquelle je peux selectionner plusieurs item (c'est une liste de nom).
-je voudrais pouvoir récupérer tous les noms que j'ai selectionné, et les afficher dans une 2ème listbox
-soit ça peut se faire directement quand je selectionne (ce serait le mieux), soit à l'aide d'un bouton de commande, une fois que j'ai selectionné tous les noms

Comment faire ?

 

[LaurentTBT]

Salut Dood,

Voilà comment remplir ta deuxième listbox avec les éléments sélectionnés dans la première:

Private Sub ListBox1_Change()
Dim i As Byte
ListBox2.Clear
For i = 1 To ListBox1.ListCount
If ListBox1.Selected(i - 1) Then ListBox2.AddItem ListBox1.List(i - 1)
Next i
End Sub

NB: mis dans la procédure ListBox1_change(), cela permet de la déclencher à chaque sélection effectuée dans ListBox1 (que je suppose être à selection multiple)

ListBox2.clear permet de vider ListBox2 (en cas de déselection d'un élément par exemple)

Ensuite, la boucle vérifie sur tous les items de ListBox1 s'ils sont sélectionnés, et si oui, les insére dans ListBox2.

 

[dood]

C'est exactement ce que je cherchais !
Merci beaucoup, c'est génial !