Discussion :

[mep1607]

Bonjour à tous,
j'ai essayé tout ce que j'ai trouvé dans les post précédents mais je n'arrive pas à faire fonctionner un Vlookup.
J'ai une erreur 1004 : "impossible de lire la propriété Vlookup de la classe WorksheetFunction". J'ai regardé dans l'aide en ligne (il y a juste une vidéo), j'ai regardé ce que faisait l'enregisteur de macro, j'ai copié des bouts de code trouvés à gauche et à droite mais rien n'y fait.
Est-ce que quelqu'un pourrait avoir la gentillesse de jeter un oeil d'expert dessus ? Il n'y a aucune évidence pour un débutant et je boucle sans doute sur quelque chose de simple mais je ne m'en sors vraiment pas.
Merci beaucoup.
PS : j'ai mis des valeurs en dur pour le test.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim RelationClient As String
Dim MoisSuivi As String
Dim Plage As String
 
    FichierImport = "SFP_SSAAMM_Nom Projet_CODEARAMIS.xlsx"
    Workbooks(FichierImport).Sheets("KSF").Activate
    Workbooks(FichierImport).Sheets("KSF").Range("A9").Select
 
    MoisSuivi = "01/05/2011"  
    Plage = "A9:B23"
 
    RelationClient = WorksheetFunction.VLookup(MoisSuivi, Range(Plage), 2, False)

[Qwazerty]

Salut

Lorsque VLookUp fait une recherche, il ne regarde pas le contenu que tu vois affiché dans la cellule (01/05/2011) mais la vrai valeur de la date, qui est représente par un nombre décimal (40664) (la partie décimale c'est pour les heures).
Donc tu dois convertir avant de faire ta recherche.
attention car l'erreur qui est générée le sera du moment que la valeur recherchée n'existe pas dans la matrice, il serait donc bien de gérer ce cas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub teste()
Dim RelationClient As String
Dim FichierImport As String
Dim MoisSuivi As Date
Dim Plage As String
 
FichierImport = "SFP_SSAAMM_Nom Projet_CODEARAMIS.xlsx"
'Inutile de selectionner pour travailler sur un onglet
'Workbooks(FichierImport).Sheets("KSF").Activate
'Workbooks(FichierImport).Sheets("KSF").Range("A9").Select
 
MoisSuivi = CDate("01/05/2011")
Plage = "A9:B23"
 
RelationClient = WorksheetFunction.VLookup(CDbl(MoisSuivi), Workbooks(FichierImport).Sheets("KSF").Range(Plage), 2, False)
End Sub

++
Qwaz

[mep1607]

Merci beaucoup Qwaz mais il me dit

Erreur d'exécution 13 - Incompatibilité de type.

Tu as une idée de ce que cela veut dire ?

J'ai trouvé.
Ma date était en string, je l'ai mis en double !
Merci Qwaz, tu es un ange !

[mep1607]

Tu l'avais mis en format date, je ne savais pas que ça existait.
Merci, tu m'as appris plein de choses en une seule fois.