Recherchev

[Didier]

Bonjour le forum
Je voudrais écrire une recherchev à l'interieur d'un userform
comment m' y prendre ?
Merci à tous
Didier

 

[Valérie]

En Vb recherchev correspond à vlookup avec les arguments identiques

 

[ThierryR]

Bonjour,

La formule est du style :

Valeur = WorksheetFunction.VLookup(Valeuràrechercher, Plagedutableau, numérde lacolonneàrenvoyer, False).

Ledernier critère False consiste à rechercher la valeur exacte et non comme dans le cas True une valeur approchée si cette valeur n'existe pas.

ThierryR

 

[Didier]

Merci à tous les deux
Bonne journée
Didier

 

[Didier]

Re bonjour
J'ai tapé ceci et
ça ne marche pas
Private Sub TextBox2_Change()
TextBox2 = VLookup.TextBox1("a2:b50", 2, False)
End Sub
Merci
A+Didier

 

[David Of Lunel]

Salut !

comme ça, ça devrait mieux fonctionner...

Private Sub TextBox2_Change()
valachercher=TextBox1.Value
TextBox2.Value=WorksheetFunction.Vlookup(valachercher,"a2:b50", 2,False)
End Sub

je ne l'ai pas essayée, alors je ne peux pas te promettre une total réussite...En revanche, regarde bien le message de ThierryR car il t'a parfaitement indiqué la manière de rédiger le code...

Bye !

David Of Lunel

 

[Valérie]

C'est bien ce qui est dans textbox1 que tu cherches dans ta liste alors tu dois le placer dans les parenthèses

Private Sub TextBox2_Change()
TextBox2 = VLookup(TextBox1, "a2:b50", 2, False)
End Sub

C'est pas sur mais tu auras peut-être besoin de WorksheetFunction devant Vlookup (à tester...)

@+

 

[ThierryR]

Rebonjour,

Pour ma part il me semble qu'il doit y avoir worksheetfunction absolument pour que cela fonctionne. Peut-être faut-il donner un nom à ta plage "a2:b50" ?


Thierry

 

[Didier]

Bonsoir et merci de vos réponses
malgré vos conseils ça ne marche pas mais
il se passe un truc bizarre au niveau des caractères vous ne devez pas être loin de la solution regardez en pièce jointe
Merci
Didier