Problème Vlookup

[Trulo]

Bonsoir,

J'ai un petit soucis d'erreur 1004 avec une ligne de code et je ne sais pas d'où vient le problème.

CheminUtil = WorksheetFunction.VlooUp(premiereCell, nom, 2, false)

avec
premierCell = "Suivi Doc.xls"
nom = plage de la matrice

L'erreur viendrait elle du fait que la valeur renvoyée par premiereCell est un .xls?
J'avoue être un peu sec sur le sujet
Merci d'avance pour vos conseils

 

[Catrice]

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

 

[Trulo]

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?

 

[Catrice]

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.