Interaction Textbox/Listbox/Modification données

Bonjour,

Suite à la vidéo de "Sebastien" concernant la création d'une barre de recherche, j'ai réussi à réutiliser son code.

Mais J’ai une dernière question à résoudre.

Dans un userform, J'ai crée une textbox où les mots clés tapés sont identifiés dans ma listbox1.

Dans ma listbox1, j’ai mis l'option ListStyle afin de pouvoir sélectionner la ligne souhaitée. La ligne a 3 données à présenter. Ces 3 données apparaissent dans leur textbox respectif. Normalement, je n'aurai plus qu'à modifier une donnée apparue pour actualiser mon tableau de données.

Mon problème est qu’une fois que j’appuie sur le bouton rechercher afin de faire apparaître les données dans leur textbox, ce sont les données de la première ligne de mon tableau qui apparaissent et non les données de ma ligne sélectionné dans ma listbox1.

Auriez vous une idée de l’erreur de mon code ?

Private Sub TextBox5_Change()

Application.ScreenUpdating = False
der_ligne = Cells(Rows.Count, 2).End(xlUp).Row
ListBox1.Clear
If TextBox5 «  » Then
For Ligne = 10 To der_ligne
If Cells(Ligne, 2) Like « * » & TextBox5 & « * » Then
ListBox1.AddItem Cells(Ligne, 2)
End If
Next
End If
End Sub

Private Sub Btn_rechercher_Click()
Dim Valeur As Integer
Valeur = ListBox1.ListIndex + 10
TextBox2.Value = Cells(Valeur, 2).Value
TextBox3.Value = Cells(Valeur, 3).Value
TextBox4.Value = Cells(Valeur, 4).Value
End Sub

Sur un conseil, j'ai changé mon code pour coder mon bouton Btn_rechercher de la manière suivante :

Private Sub Btn_rechercher_Click()
Dim Valeur As Integer
    Valeur = Application.Match(Me.ListBox1.Text, [B:B], 0)
    TextBox2.Value = Cells(Valeur, 2).Value
    TextBox3.Value = Cells(Valeur, 3).Value
    TextBox4.Value = Cells(Valeur, 4).Value
End Sub

Je ne sais pas pourquoi mais ca marche !