Interaction Textbox/Listbox/Modification données Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
arone77
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 26 juillet 2016
Version d'Excel : 2010

Message par arone77 » 11 août 2016, 11:29

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
a
arone77
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 26 juillet 2016
Version d'Excel : 2010

Message par arone77 » 11 août 2016, 14:47

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 !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message