Probleme avec la fonction vlookup VBA 2003
Résolu
Malco
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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
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
5 réponses
-
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... -
Bonjour,
Essaye peut être comme ceci :
remplace :WorksheetFunction.VLookup
par :Application.WorksheetFunction.VLookup
==pas testé== -
-
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
