Discussion :

[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 :

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

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 :

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

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

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

Code :

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

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 :

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

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 ...