Salut à tous,
J'ai un problème que je n'arrive pas à résoudre et pourtant j'ai l'impression d'avoir tout essayé.

J'ai un fichier excel dans lequel dans la colonne A il y a des dates et dans la colonne B les cours d'une action correspondant.
J'ai le petit programme suivant:
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
 
 
Function payOff(dateDebut As Date, cellACote As Range) As Variant
On Error GoTo gestionErreur:
 
Dim coursFinAnnee1, coursFinAnnee2, coursFinAnnee3, x As Double
Dim position As Integer
Dim dateFin1, dateFin2, dateFin3 As Date
dateFin1 = DateAdd("yyyy", 1, dateDebut)
dateFin2 = DateAdd("yyyy", 2, dateDebut)
dateFin3 = DateAdd("yyyy", 3, dateDebut)
 
 
coursDebut = cellACote.Offset(0, -1).Value
 
coursFinAnnee1=Application.WorksheetFunction.VLookup(dateFin1, Range("A1:B2017"), 2,0)

Ce code ne marche pas...J'ai tracé l'erreur suivante:
unable to get the VLookup property of the worksheetfunction class

Alors j'ai essayé ça:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
coursFinAnnee1 = Application.VLookup(dateFin1, Range("A1:B2017"), 2, 0)
Mais si j'affiche les variables en mode debug, je vois que dans coursFinAnnee1 j'ai "Error 2042".

Est-ce que quelqu'un peut m'aider?
Merci d'avance.