Userform - Créer un Label avec les sélection d'une ListBox

Question

Tout est dans le titre, j'aimerais pouvoir récupérer les lignes selectionné dans une listbox pour les mettre dans un label.

Tout ca doit se faire dans le même USF, donc être automatiquement si on veut.

Je vous joint le fichier que j'ai. Je ne pourrais pas le retélécharger si vous le modifier pour des raisons de sureté informatique.

Une explication sera largement suffisante.

Merci

26panneaux-vers-colis-v7.xlsm (82.55 Ko)

ThauThème · Accepted Answer

Bonjour Arthur, bonjour le forum,

Une piste :

Private Sub CommandButton1_Click()
Dim Msg As String
Dim I as Integer

For I = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(I) = True Then
        Msg = IIf(Msg = "", Me.ListBox1.Column(0, I) & " / " & Me.ListBox1.Column(1, I) & " / " & Me.ListBox1.Column(2, I) _
           & " / " & Me.ListBox1.Column(3, I) & " / " & Me.ListBox1.Column(4, I), Msg & vbCrLf & Me.ListBox1.Column(0, I) & " / " _
           & " / " & Me.ListBox1.Column(1, I) & " / " & Me.ListBox1.Column(2, I) & " / " & Me.ListBox1.Column(3, I) _
           & " / " & Me.ListBox1.Column(4, I))
    End If
Next I
MsgBox Msg
UserForm1.Hide
End Sub

Je n'ai pas créé une Label mais mais le résultat dans une Boîte de Message...