Fx recherche

[Géraud]

Bonjour,

J'ai mis en place un moteur de recherche dans 1 BD sur un Userform (Merci Thierry pour l'ensemble de tes démos qui m'ont permis de développer mon fichier !!!).

Est-il possible de faire rechercher la valeur saisie dans la colonne A et de renvoyer dans une listbox la valeur correspondante de la colonne B ?
A ce jour, mon code est le suivant :


L = Sheets("Données").Range("c150").End(xlUp).Row
Set Maplage = Sheets("Données").Range("t2:t" & L)
With Maplage
Set C = .Find(Cherche, LookIn:=xlValues)
If Not C Is Nothing Then
FirstADdress = C.Address
Do
ListBox2.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstADdress

End If
End With


Merci beaucoup
Géraud

 

[Minick]

Salut,

Tu peux essayer comme ca, ca devré marcher


L = Sheets("Données").Range("A65536").End(xlUp).Row
Set Maplage = Sheets("Données").Range("A2:A" & L)
With Maplage
Set C = .Find(Cherche, LookIn:=xlValues)
If Not C Is Nothing Then
FirstADdress = C.Address
Do
ListBox2.AddItem Range("B" & C.Row)
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstADdress

End If
End With

@+
Minick

 

[Géraud]

Salut Minick,

Ca marche !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Merci beaucoup
et @+
Géraud