Vlookup avec userform??

Bonjour,

je veux, dans mon userform, saisir une référence dans un textbox. Jusque là, pas de problème!!

Mais voilà! Je veux que cette référence (de type 254854 par exemple) entraine l'affichage du nom auquel elle correspond.

exemple: 254854=marteau

donc je veux que lorque je saisi dans mon textbox 254854, que marteau s'affiche automatiquement à côté (dans un autre textbox)

J'ai pensé utiliser dans le code de mon textbox "nom de la référence" : application.Vlookup

mais ça ne marche pas!!!!!!

comment procéder???????

Merci beaucoup de votre aide

Bonjour line31,

Essaie de voir du côté de la méthode Find.

Si tu n'y arrives pas, envoie un bout de fichier.

Je recherche de ce côté et je vous tiens au jus...

merci beaucoup!

-- 20 Juil 2010, 12:53 --

Bon, je vois bien la méthode find.

seulement comment inserer ce code dans vba?

si je l'a met comme ceci, est-ce bon?:

private sub textbox28_change

blabla

end sub

autrement dit, comment faire en sorte que le resultat de la recherche s'affiche automatiquement après la saisie du textbox?

rappel:

saisie dans textbox1 d'un numéro de référence

apparition automatique du nom de cette référence.

exemple: textbox1= 254 ; donc: textbox2= marteau

Salut le forum

A adapter à ton problème sur l'évenement Change du TextBox1

With Worksheets(1).Range("a1:a500")
    Set c = .Find(TextBox1, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Textbox2=c.Value 
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Mytå

merci beaucoup!

seulement, la valeur que je saisie en textbox1 se reproduit en textbox 2, non le nom.

dans la base de donnée que j'ai dans worksheets(1) la colonne A contient les références et la colonne B contient les noms.

Remplace alors :

Textbox2=c.Value

par

TextBox2 = c.Offset(, 1).Value

ça ne marche pas.......

j'ai essayé: TextBox28 = c.Address.Offset(, 1).Value

mais j'ai un message d'erreur...

autre idée?

Enleve le ".Address"

TextBox28 = c.Offset(, 1).Value

vba-new a écrit :

Enleve le ".Address"

TextBox28 = c.Offset(, 1).Value

Merci vba-new,

j'ai en effet essayé cela, mais ça ne marche pas.

lorsque je tape ma valeur en textbox1, le nom ne s'affiche pas en textbox2 (non textbox28 pardon)

dois-je définir une autre variable

du style d= c.offset(,1).value

mais je n'y connais pas grand chose...

merci de votre aide!

salut le forum

Le mieux est de joindre un fichier sans données confidentielles.

Si il ne passe pas par le forum, tu crèes un lien à l'aide de cjoint.com et tu recopies le lien dans ton prochain message.

Mytå

Salut Myta,

Je pense que ce post fait référence à celui-ci : https://forum.excel-pratique.com/excel/fonction-recherche-usf-t18229.html

qui lui, est soldé.

J'ai eu la flemme de lui dire de ne pas dédoubler le post.

Il n'est donc plus utile d'intervenir ici.

Amicalement

pardon!

j'avoue avoir été un peu pressé! désolé pour le temps perdu...