la fonction RECHERCHEV en VBA

Bonjour,

Je chercher avoir la fonction recherche V en VBA pour mon fichier j’ai déjà commencé à mettre en place le code mais vu que je suis un débutant j’ai besoin de votre aide.

Voilà mon fichier joint :

Pièce jointe 161299


je reste disponible pour plus d'informations.
et merci d'avance

Cdt,
ouga

:salut:

Cette question a déjà été traitée dans la discussion ci-après :

http://www.developpez.net/forums/d48...l/vlookup-vba/

dsl mais sauf que j'arrive pas à adapter ce code avec mon userforme que j'ai crée.

Cdt,
OUGA

Si vous pouvez poster une copie de ton classeur avec quelques exemples et le userform, peut-être que les membres bénévoles pourront faire quelque chose.

voila mon fichier c'est juste un fichier test

et merci d'avance pour votre collaborations.

Cdt,
ouga
Pièce jointe 161301

voila le code que j'ai met :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TextBox1_Change() Dim TextBox1 As Variant TextBox1.Value = Application.VLookup(ComboBox1, tableau, 2, False) If IsError(TextBox1) Then MsgBox "Valeur inexistante" Else MsgBox TextBox1 End If End Sub

---

Cdt,
ouga

Bonsoir,

si je comprends bien, la liste déroulante doit faire afficher les noms et le TextBox1 le Code... c'est exactement le contraire que tu réalises (et qui ne marche pas!)

Mets cette ligne sur la liste déroulante :

Code:

---

1 2 3 4 5

Private Sub ComboBox1_Change()   TextBox1.Value = Application.VLookup(ComboBox1, Range("A2:B6"), 2, False)   End Sub

---

Curt

Merci bcq pour ta réponse ça fonctionne correctement.
Un grand merci o devellopez.com :D


Cdt,
ouga