Probleme avec la fonction vlookup VBA 2003

Résolu
Malco -  
pijaku Messages postés 13513 Statut Modérateur -
Bonjour,

J'avais besoin de faire un vlookup dans une macro VBA et donc j'ai fait comme ça :


ThisWorkbook.Worksheets("check").Cells(j, 2).Value = WorksheetFunction.VLookup(ThisWorkbook.Worksheets("check").Cells(j, 1).Value, ThisWorkbook.Worksheets("alphabet").Range("A1:B26"), 2, False)


Le probleme est que j'ai toujours le message d'erreur suivant : "Impossible de lire la propriété Vlookup de la classe WorksheetFunction"

Je ne comprends pas ce qui cloche ds cette ligne de code.

Pouvez vous me donner des pistes SVP ?

Merci beaucoup

A voir également:

5 réponses

pijaku Messages postés 13513 Statut Modérateur 2 763
 
re-
Ben non ça ne fonctionne pas, j'me filerais des coups de pieds ou j'pense des fois...

Après essai :
ThisWorkbook.Worksheets("check").Cells(3, 2).Value = Application.VLookup(ThisWorkbook.Worksheets("check").Cells(3, 1).Value, ThisWorkbook.Worksheets("alphabet").Range("A1:B26"), 2, False)
semble bien fonctionner...
1
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,
Essaye peut être comme ceci :
remplace :
WorksheetFunction.VLookup
par :
Application.WorksheetFunction.VLookup

==pas testé==
0
Malco
 
Bonjour Pijaku,
merci pour ta réponse,
J'ai essayer mais ça marche tjrs pas !
0
Malco
 
Au fait je viens de comprendre le probleme :
la vlookup fonctionne presque correctement. Le souci est que s'il n'y a rien dans la colonne 2 (là ou je cherche mon output) la macro bug !
y a pas un moyen "intelligent" pour remédier à ça svp ?
Je pense que je peux faire un :
if len(donnée) <> 0 then j'execute mon vlookup
else je passe en i+1
Mais y a pas un autre moyen pour a gir directement sur le VlookUp ?

Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Malco
 
ça marche :) merci beaucoup pijaku :)
0
pijaku Messages postés 13513 Statut Modérateur 2 763
 
De rien.
A+
0