Discussion :

[a.ouguerzam]

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 :

rechercheV.xlsm


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

Cdt,
ouga

[Malick]

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

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

[a.ouguerzam]

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

Cdt,
OUGA

[Malick]

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.

[a.ouguerzam]

voila mon fichier c'est juste un fichier test

et merci d'avance pour votre collaborations.

Cdt,
ouga
rechercheV.xlsm

voila le code que j'ai met :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[curt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Curt