[XL-2003] Pb avec VLOOKUP [Résolu]

[marie6631]

Bonjour,

mon code ne marche pas alors que lorsque je teste directement dans la barre de formule avec ma valeur à la place de "res" cela fonctionne très bien.

Je veux récupérer dans mon onglet "REF" le nom associé à la valeur de "res"

Code :

1
2
3
4
5
6
7
8
 
dim res as integer
dim objRange as Range
Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants).Select
For Each objRange In Selection
res = Val(objRange)
objRange.Offset(0, 1).Value = "=VLOOKUP(res,REF!$A$1:$B$95,2,false)"
Next

J'ai une erreur #NOM dans la colonne et c'est clairement res qui ne correspond pas à un nombre puisque ma recherche se fait sur des nombres. Pourtant je l'ai définit comme un entier. Si j'affiche des msgbox j'ai bien un nombre.

Pouvez-vous m'aider ?

Merci d'avance

[pgz]

Bonjour.

Si tu veux modifier une formule, c'est

Code :

objRange.Offset(0, 1).Formula = "=VLOOKUP(res,REF!$A$1:$B$95,2,false)"

Si c'est le résultat d'un calcul :

Code :

objRange.Offset(0, 1).Value = Application.workheetsfunction.VLOOKUP(res,REF!$A$1:$B$95,2,false)

Cordialement,

PGZ

[marie6631]

Merci pour cette précision mais maintenant j'ai une erreur sur le $ qui n'est pas le bon caractère.

que dois-je mettre à la place ?

Merci d'avance

[jfontaine]

Bonjour,

J'aurais plutôt écrit comme cela

Code :

objRange.Offset(0, 1).Value = Application.workheetsfunction.VLOOKUP(res,Sheets("REF").range("$A$1:$B$95"),2,false)

[marie6631]

Merci
Je l'ai testé masi ca ne fonctionne pas non plus

[jfontaine]

Je l'ai testé masi ca ne fonctionne pas non plus

ça ne fonctionne ne nous aidera pas pour t'aiguiller vers la solution.

résultat innatentu, erreur d'execution ...

[marie6631]

Pardon

c'est une erreur d'exécution '438' propriété ou méthode non gérée par cet objet

Merci

[jfontaine]

Peux tu afficher la ligne de code qui génère cette erreur

[marie6631]

toujours la même !

Code :

1
2
 
objRange.Offset(0, 1).Value = Application.worksheetsfunction.VLookup(res, Sheets("REF").Range("$A$1:$B$95"), 2, False)

[jfontaine]

Ok, il y a un s de trop à worksheetfunction

Code :

objRange.Offset(0, 1).Value = Application.Worksheetfunction.VLookup(res, Sheets("REF").Range("$A$1:$B$95"), 2, False)

pour éviter ce genre de désagrément, l'astuce est de regarder la première lettre des instructions dans Excel.
Celle ci doit être une Majuscule. Si ce n'est pas le cas c'est qu'il y a une faute de frappe

[marie6631]

Merci mais il y a tjs une erreur d'exécution 1004 : erreur définie par l'application ou par l'objet, pour la même ligne.

J'ai recopié la formule pourtant

[jfontaine]

L'erreur 1004 apparaît quand la valeur recherchée n'a pas été trouvée dans la matrice de recherche
Il faut gérer cette erreur via la gestion des erreurs

Code :

1
2
3
On error Goto [nom]
ou 
On error Resume next

Si tu n'es pas sur que la valeur recherchée existe, tu peux utiliser la formule de ton code initiale en corrigeant suivant les indications de pgz

[marie6631]

Merci cela semble résolu !