Discussion :

[PsychedeChed]

Bonjour,

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

Code :

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

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 !

[Qwazerty]

SAlut
Peut etre ainsi

Code :

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

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

A++
Qwaz

[PsychedeChed]

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

[Qwazerty]

Re
Me remercie pas trop vite, j'ai fait des recherche et c'est pas si simple...
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

[fring]

Bonjour,

Code :

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

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)

@+

[Qwazerty]

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

Code :

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

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)