Probleme avec la fonction vlookup VBA 2003

Résolu
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 -
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

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

==pas testé==
0
Réponse 3 / 5
Malco
21 sept. 2011 à 13:41
Bonjour Pijaku,
merci pour ta réponse,
J'ai essayer mais ça marche tjrs pas !
0
Réponse 4 / 5
Malco
21 sept. 2011 à 13:49
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
Réponse 5 / 5
Malco
21 sept. 2011 à 14:05
ç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 761
21 sept. 2011 à 14:16
De rien.
A+
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

Bonjour à tous,
je n'arrive pas à trouver sur le forum une manière d'utiliser la fonction Range avec des variables pour les lignes et les colonnes. Je m'explique :

J'ai Range("40:A500" dans mon code, et je voudrai remplacer A40 et A500 par des variables que j'ai définies précédemment.
Imaginons que mes variables définies avant soient ColL et LigneL, je voudrai remplacer Range(A40:A500) par quelquechose comme :

Range(ColL & LigneL ":" ColL & 500) j'ai beau essayer dans tous les sens et de manières différentes je n'y arrive pas !

Merci d'avance pour votre aide !!

Antoine




7 réponses
Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

Bonjour à tous,

Je vais encore vous embêter aujourd'hui avec mon registre/rapport.

Ma question est simple (enfin je crois).
J'ai une liste de client :
- Autocars truc
- Bidule Autocars
- ... etc

J'ai une adresse pour chaque client (sous forme de liste) :
- Pont de Ernest
- Chemin Départemental 6
- ... etc

J'ai un code poste pour chaque client (sous forme de liste) :
- 99548
- ... etc

Ma question est : Si en D18 je récupère l'information du nom de mon client, je veux en D19 son adresse, en E20 son code postal et en M20 sa ville en fonction des listes d'ad...

4 réponses