Transférer données listbox multicolonnes

Bonjour à tous,

J'ai un soucis pour transférer les données d'une listbox multi colonnes vers des textbox pour ensuite les transférer dans ma feuille excel. Je n'ai pas trouvé la solution et pourtant j'ai cherché...

Je vous laisse mon fichier en PJ avec une explication en image.

Merci à vous!

Bonne journée!!

Bonjour Nossila.

Une proposition :

Private Sub ListBox1_Click()
Dim i%, j%
    'Alimentation des Textbox
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) And .List(i, 1) <> "" Then
                For j = 0 To 4
                    Me.Controls("TextBox" & (j + 14)).Value = .List(i, j)
                Next j
                Exit Sub
                Else:
                For j = 14 To 18
                    Me.Controls("TextBox" & j).Value = ""
                Next j
            End If
        Next i
    End With
End Sub

Bonjour thebenoit59,

dsl pour le tps de réponse, j'avais laissé mon message en brouillon en croyant que je l’avais envoyé

Merci pour ton aide!

J'ai testé et ça fonctionne niquel.

Bonne journée à toi!

Rechercher des sujets similaires à "transferer donnees listbox multicolonnes"