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.