XL 2010 recherche à partir d'une base de données

[M.D]

Bonjour,

Mes compétences limitées me mènent à nouveau à vous...Je suis à recherche la bonne formule me permettant de terminer mon petit projet commencer il y a quelque temps.

Mon projet étant la recherche de renseignements à partir d’une base de données.

Dans un premier temps je recherche tous les mots ayant la première lettre commune. Pas de problème.

Par contre le souci se situe lors du choix de la liste proposée. Les renseignements affichés ne correspondent pas à ceux de la base de données.

Par exemple si je tape la lettre « A » j’obtiens deux résultats, et si je clique sur l’un premier noms j’obtiens les renseignements de la première ligne de ma base de données au lieu des renseignements de la ligne « 9 »

Je vous joins 1 fichier pour mieux comprendre ma demande :


Merci d’avance

M.D 95

 

[youky(BJ)]

Salut bien M.D,
ListIndex ne marche pas dans ton cas, il faut procéder ainsi...
Bruno

Private Sub ListBox1_Click()
'ligne = Me.ListBox1.ListIndex + 3
ligne = Application.Match(ListBox1, f.[AR1:AR5000], 0)
 
    Me.TextBox_nom = f.Cells(ligne, 4)
    Me.TextBox_prenom = f.Cells(ligne, 5)
    Me.TextBox_classe = f.Cells(ligne, 2)
   
    Me.TextBox_entrepise = f.Cells(ligne, 44)
    Me.TextBox_responsable = f.Cells(ligne, 46)
   
    Me.TextBox_Adresse_E = f.Cells(ligne, 45)
    Me.TextBox_code_postal_E = f.Cells(ligne, 47)
    Me.TextBox_Ville_E = f.Cells(ligne, 48)
    Me.TextBox_telephone_E = f.Cells(ligne, 50)
    Me.TextBox_telecopie_E = f.Cells(ligne, 51)
    Me.TextBox_Portable_E = f.Cells(ligne, 47)
    Me.TextBox_email_E = f.Cells(ligne, 54)
   
    Me.TextBox_MA_E = f.Cells(ligne, 56)
    Me.TextBox_P_MA = f.Cells(ligne, 55)
   
End Sub

 

[M.D]

Bonsoir,

Je viens de lire vos solutions à ma problématique .

Les deux solutions me conviennent très bien.

A moi maintenant de faire mon choix qui correspond au mieux à mes besoins.

Merci à vous pour avoir consacré votre temps libre pour me répondre .

M.D 95