Probleme avec la fonction vlookup VBA 2003

Résolu/Fermé
Malco - 21 sept. 2011 à 13:36
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 21 sept. 2011 à 14:16
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

5 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
21 sept. 2011 à 13:58
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 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
21 sept. 2011 à 13:39
Bonjour,
Essaye peut être comme ceci :
remplace :
WorksheetFunction.VLookup
par :
Application.WorksheetFunction.VLookup

==pas testé==
0
Bonjour Pijaku,
merci pour ta réponse,
J'ai essayer mais ça marche tjrs pas !
0
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
ça marche :) merci beaucoup pijaku :)
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
21 sept. 2011 à 14:16
De rien.
A+
0