Message erreur Vlookup

[Nimbus]

Bonjour à tous,

Je dois créer un programme VBA qui, lorsque je sélectionne un atelier m'indique automatiquement les initiales du responsable de cet atelier. Pareil pour les clients! C'est à dire que quand je sélectionne un client, une liste d'articles fait par ce client doit être proposée.

Seulement j'ai un message d'erreur qui s'affiche à chaque fois: "Impossible de lire la propriété VLookup de la classe WorksheetFunction".


Voici mon programme:


Private Sub Qui_initiales_Change()

Dim Initiale As String

Initiale = Qui_Initiales.Value

If Initiale <> "" Then
Qui.Caption = Application.WorksheetFunction.VLookup(Initiale, Worksheets("Tables").Range("A:B"), 2, False)

Else
Qui.Caption = ""

End If

End Sub

Je vous joint, également, le fichier excel pour mieux comprendre!

Merci pour votre aide!

 

[Hulk]

Re : Message erreur Vlookup

Hello Nimbus, Forum,

Si j'ai bien saisis, peut-être me trompe-je, mais intervertis les colonnes A et B de la feuille "Tables" sans rien faire d'autre...
C'est à dire la A en B et la B en A.

 

[Nimbus]

Re : Message erreur Vlookup

Non ça ne fonctionne pas...

 

[Nimbus]

Re : Message erreur Vlookup

Bonjour Hulk,

En faite si sa fonctionne! Mais que pour les initiales.
Pour les clients, sa ne focntionne pas... Je ne comprends pas pourquoi.!?

Merci

 

[Nimbus]

Re : Message erreur Vlookup

Bonjour Hulk (et toutes autres personnes lisant ce message)

Pouvez vous m'aidez à résoudre mon problème concernant mon message d'erreur Vlookup svp??
Hulk m'a déja trouvé une solution pour l'afdfichage des initiales mais, j'ai le même message d'erreur pour faire apparaître les modéle suivant les différents clients.

Quelqu'un pourrai m'aider svp???

Merci