Discussion :

[mike2222]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

le code qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mike2222]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mike2222]

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