Problème Vlookup

Re : Problème Vlookup

Bonsoir,

Exact, le premier argument doit etre une Ref ou une valeur.
Tu cherches la chaine "Suivi Doc.xls" ?

Ceci fonctionne :

Sub Test()
premiereCell = "Suivi Doc.xls"
Set nom = Range("A1:B10")
CheminUtil = Application.WorksheetFunction.VLookup(premiereCell, nom, 2, False)
MsgBox CheminUtil
End Sub

Il ne faut pas oublier le "k"

ou
CheminUtil = Application.VLookup(premiereCell, nom, 2, False)

Voir le fichier joint

Re : Problème Vlookup

Petit rectif, le premier argument est PremiereCell.value et je l'ai dimensionner en range car j'en ai besoin au début de la macro.
Y a t il un moyen pour renvoyer une valeur ou une ref?

Re : Problème Vlookup

Re,

VLookup renvoit une valeur.
Pour avoir la Ref :

Sub Test()
premiereCell = "Suivi Doc.xls"
Set nom = Range("A1:B10")
Set c = nom.Find(premiereCell)
If Not c Is Nothing Then MsgBox c.Offset(0, 1) & " / " & c.Offset(0, 1).Address
End Sub

A tester avec le fichier precedement joint.