Recherche VLOOKUP avec argument variable

Bonjour à tous,

Cela fait plusieurs semaines que j'ai commencé à programmer en VBA, tous les problèmes que j'ai eu jusque maintenant ont pu être résolus grâce à la lecture de forums tels que celui-ci. Mais là je n'ai trouvé aucun cas similaire sur le web (j'ai dû mal chercher).

Pouvez-vous m'aider svp : la ligne de code qui pose probème est la 12 selon moi. Pas de message d'erreur juste #NOM? qui apparaît au lieu du bon résultat.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub recherchev()   Dim NNCR As String   Workbooks.Open Filename:="F:\----\Extraction eNCR.xls"   Workbooks("MacroRNC.xlsm").Activate   NNCR = ActiveCell.Offset(0, -21).Value 'égale à 1110 par exemple   ActiveCell.Value = "VLOOKUP(NNCR,'Extraction eNCR.xls'!R1C1:R20000C11,11,FALSE)"   End Sub

---

Avec ce code le vlookup me renvoie une erreur, alors que quand je mets directement la valeur dans la formule (par exemple 1110 à la place de NNCR), j'obtiens le résultat escompté.

le code qui marche :

Code:

---

ActiveCell.Value = "VLOOKUP(1110,'Extraction eNCR.xls'!R1C1:R20000C11,11,FALSE)"

---

Espérant avoir été compréhensible, je vous remercie de bien vouloir m'aider.

Mike

Bonjour,

Citation:

---

le code qui marche :

Code:

---

ActiveCell.Value = "VLOOKUP(1110,'Extraction eNCR.xls'!R1C1:R20000C11,11,FALSE)"

---

Espérant avoir été compréhensible, je vous remercie de bien vouloir m'aider.

---

Je serais extrêmement étonné que tu obtiennes un résultat avec cette ligne d'instruction.

[EDIT]
Exemple de syntaxes possibles pour une valeur à chercher se trouvant en cellule F8 de la feuille active avec comme table matrice la plage nommée dbCli.
Exemple 1 : La formule =RECHERCHEV(F8;dbCli;4;FAUX) est placée dans la cellule active.

Code:

---

1 2	ActiveCell.Formula = "=VLOOKUP($F$8,dbCli,4,FALSE)" Exemple 2 : La valeur est renvoyée dans la cellule active par évaluation de la formule

---

'ActiveCell.Value = Evaluate("=VLOOKUP($F$8,dbCli,4,FALSE)")
Exemple 3 : La valeur est renvoyée par l'application de la fonction de feuille de calcul VLookup

Code:

---

ActiveCell.Value = Application.WorksheetFunction.VLookup(Range("$F$8"), Range("dbCli"), 4, False)

---

Ton problème provient sans doute d'un mauvais typage (tu cherches une valeur numérique alors que dans la plage les données sont alphanumériques ou l'inverse.

Bonjour Philippe, désolé du retard dans ma réponse..
J'ai essayé les trois méthodes que tu as proposé en vain.
Concernant la notation en R1C1 c'est une erreur j'ai copié le mauvais code, merci de l'avoir souligné.
Finalement j'ai copié la formule manuellement sur les 5000 premières lignes espérant avoir suffisament de marge pour les années à venir..même si je ne suis pas fier de cette méthode, j'aurais voulu avoir un fichier qui grandit avec les besoins.

Merci quand même et bon

Code:

---

ActiveCell.FormulaR1C1 = "=VLOOKUP(" & NNCR & ",'Extraction eNCR.xls'!R1C1:R20000C11,11,FALSE)"

---

Bonjour mercatog, merci pour ta proposition. Ca marche parfaitement, mon problème était le NNCR qui n'était pas mis entre les "&".

Bonne journée