Alimention TextBox depuis Click ListBox

Bonjour,

je rencontre un petit soucis,
je souhaiterai afficher les donner dans des TextBox grâce a un click sur une des donnés sur la ListBox (lst_rechercher)

voici le le code que j'ai fait mais rien ne ce passe.

Private Sub UserForm_initialize()
    Set fcmd = Sheets("BDD COMMANDES")
    Set fcl = Sheets("BDD CLIENT")
    For i = 2 To fcl.Range("A" & Rows.Count).End(xlUp).Row
        i2 = fcmd.Range("A:A").Find(fcl.Range("A" & i), lookat:=xlWhole).Row
        lst_rechercher.AddItem
        lst_rechercher.Column(0, lst_rechercher.ListCount - 1) = fcl.Range("A" & i)
        lst_rechercher.Column(1, lst_rechercher.ListCount - 1) = fcl.Range("B" & i) _
                & " " & fcl.Range("C" & i)
        lst_rechercher.Column(2, lst_rechercher.ListCount - 1) = fcmd.Range("C" & i2)
        lst_rechercher.Column(3, lst_rechercher.ListCount - 1) = fcmd.Range("D" & i2)
        lst_rechercher.Column(4, lst_rechercher.ListCount - 1) = fcmd.Range("B" & i2)
    Next i
End Sub

Private Sub lst_rechercher_click()
Dim Lig As Variant
Set SH = Sheets("BDD COMMANDES")
'------------
Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_num = SH.Cells(Lig, "A")

Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_date_achat = SH.Cells(Lig, "B")

Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_fabricant = SH.Cells(Lig, "C")

Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_produit = SH.Cells(Lig, "D")

Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_statut = SH.Cells(Lig, "E")

Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_ca = SH.Cells(Lig, "F")

Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_accompte = SH.Cells(Lig, "G")

Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_delai_initial = SH.Cells(Lig, "H")

Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_conf = SH.Cells(Lig, "I")

Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_vendeur = SH.Cells(Lig, "J")

Lig = Application.Match(lst_rechercher, SH.Columns("A"), 0)
If IsNumeric(Lig) Then txt_cmd_commentaires = SH.Cells(Lig, "K")

End Sub

merci de votre aide :)

et bonne années et meilleur a tous :)

Bonjour rocca66

Avec le fichier en pièce jointe ça sera plus facile

le voici :)

Bonjour à tous,

Je ne suis pas un pro des Listbox, mais voici un essai....

Private Sub lst_rechercher_click()
 Dim Lig, sh As Worksheet
  Set SH = Sheets("BDD COMMANDES")
  '------------
    If lst_rechercher.ListCount = 0 Then Exit Sub    'si la listbox est vide
      For i = 0 To lst_rechercher.ListCount - 1
       If lst_rechercher.Selected(i) = True Then
        Lig = i + 2
           txt_cmd_num = SH.Cells(Lig, "A")
           txt_cmd_date_achat = SH.Cells(Lig, "B")
           txt_cmd_fabricant = SH.Cells(Lig, "C")
           txt_cmd_produit = SH.Cells(Lig, "D")
           txt_cmd_statut = SH.Cells(Lig, "E")
           txt_cmd_ca = SH.Cells(Lig, "F")
           txt_cmd_accompte = SH.Cells(Lig, "G")
           txt_cmd_delai_initial = SH.Cells(Lig, "H")
           txt_cmd_conf = SH.Cells(Lig, "I")
           txt_cmd_vendeur = SH.Cells(Lig, "J")
           txt_cmd_commentaires = SH.Cells(Lig, "K")
       End If
      Next i
End Sub

Cordialement,

c'est exactement ça merci