Récupérer données d'une listbox multicolonne

Private Sub LstBArriveePoste_Click()
Dim x As Integer 'déclare la variable x
Dim y As Byte 'déclare la variable y

For x = 0 To Me.LstBArriveePoste.ListCount - 1 'boucle 1 : sur tous les items de la ListBox
If Me.LstBArriveePoste.Selected(x) = True Then 'condition : si l'item est sélectionné
Me.LblArriveePosteChoisi.Caption = Me.LstBArriveePoste.Column(0, x) 'définit la Caption de la Label
For y = 1 To 7 'boucle 2 : sur les 7 dernières colonnes de la ListBox
'définit la caption de la Label
Me.LblArriveePosteChoisi.Caption = Me.LblArriveePosteChoisi.Caption & '/' & Me.LstBArriveePoste.Column(y, x)
Next y 'prochaine colonne de la ListBox (boucle 2)
Exit For 'sort de la boucle 1
End If 'fin de la condition
Next x 'prochain item de la ListBox (boucle 1)
End Sub

Cliquez pour agrandir...