G
Géraud
Guest
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
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