Discussion :

[modus57]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Gado2600]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[modus57]

Bonjour et merci Gado2600

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.

[Gado2600]

Nickel alors !

Plus qu'à mettre "RESOLU"