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

M.D

XLDnaute Occasionnel
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
 

Pièces jointes

  • 3.xlsm
    36.7 KB · Affichages: 34

youky(BJ)

XLDnaute Barbatruc
Salut bien M.D,
ListIndex ne marche pas dans ton cas, il faut procéder ainsi...
Bruno
VB:
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

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
9
Affichages
345
Réponses
6
Affichages
256

Statistiques des forums

Discussions
311 711
Messages
2 081 794
Membres
101 817
dernier inscrit
carvajal