Liste des Items sélectionnés d'une ListBox dans un MsgBox

Bonjour à tous, :)

Comment récupérer la liste des Items sélectionnés d'une ListBox dans un MsgBox ?

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then MsgBox … ' liste des Items sélectionnés d'une ListBox End If Next i End Sub

---

Un petit coup de pouce svp.

Merci d'avance.

Bonjour,

Si c'est dans un seul msgbox, utilises une variable pour la concaténation.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() dim strConc as string strConc = "" For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then strconc = strconc & listbox1.list(i) & vbcrlf' liste des Items sélectionnés d'une ListBox End If Next i msgbox strConc End Sub

---

Cordialement,

Bonjour et merci Gado2600 :ccool:

Je pensais utiliser un tableau et je n'ai pas pensé à une variable pour la concaténation.

C'est nickel, exactement ce qu'il me faut.

Cordiales salutations.

Nickel alors !

Plus qu'à mettre "RESOLU" :)