Problème avec VLookup

Bonjour,

Je souhaite me servir de la fonction VLookup d'excel dans VBA, et j'ai un bout de code comme ça :

Code:

---

1 2	Application.VLookup(mail, Range("D1", [d_clients!E1].End(xlDown)), 2, False)

---

mail est une variable qui contient une chaîne de caractère.
Ce bout de code ne fonctionne pas, je me retrouve avec une erreur : "La méthode Range de l'objet _Global a échoué".
Pourriez-vous m'aider ?
Merci !

SAlut
Peut etre ainsi

Code:

---

Application.VLookup mail, Sheets("d_clients").Range([d_clients!D1], [d_clients!E1].End(xlDown)), 2, False

---

A++
Qwaz

Ah oui, je suis bête... Merci !

Re
Me remercie pas trop vite, j'ai fait des recherche et c'est pas si simple...:aie:
Pas mal de gens s'y sont cassé les dents, apparemment y'a un truc qui clocherait avec cette fonction utilisé sous vba
A++
Qwaz

Bonjour,

Code:

---

1 2	x = Sheets("d_clients").Range("E1").End(xlDown).Row [TaCel] = Application.WorksheetFunction.VLookup(mail, Sheets("d_clients").Range("D1:E" & x), 2, 0)

---

@+

humm zarb, chez moi ca veut pas mais bon le principal c'est que tu es reponse a ta question.
Moi j'ai fini par faire comme ca :aie:

Code:

---

1 2 3 4 5 6 7 8

Dim retour Dim CelRet As Range Set CelRet = Sheets("d_clients").Range([d_clients!E1], [d_clients!E1].End(xlDown)).Find("essai", lookat:=xlWhole, SearchOrder:=xlByColumns) If Not CelRet Is Nothing Then retour = CelRet.Offset(0, -1).Value Else retour = 0 'as toi de mettre une valeur representant l'echeque de la recherche, ou du code que tu souhaite effectuer si pas trouvé End If

---

A++
Qwaz

Ps: tu peux supprimer un message que tu as toi meme posté (que le dernier je crois bien par contre)