Discussion :

[julio26]

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.

[jfontaine]

Peut être une piste
Erreur 2042 c'est la valeur que retourne la formule si elle ne trouve rien.

[julio26]

Merci pour ta réponse.
Le truc c'est que si je fais le VLookUp dans excel:

Code :

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

VLOOKUP(A256;$A$4:$B$2017;2;0)

là ça me retourne bien une valeur. J'ai bien vérifié et la valeur de la variable

dateFin1

est la bonne et elle est présente dans la colonne A...

[jfontaine]

ca a peut etre une incidence, mais ta variable dateFin1 est de type variant et non de type date

Code :

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

1
2
 
Dim dateFin1, dateFin2, dateFin3 As Date

il faut plutot delcarer comme ca

Code :

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

Dim dateFin1 as Date, dateFin2 as Date, dateFin3 As Date

[julio26]

J'ai corrigé en ajoutant un as Date partout mais j'ai toujours la même erreur (2042)...

[jfontaine]

essai en forcant dans ta formule la valeur recherchée.
Une valeur existante dans le tableau

Code :

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

coursFinAnnee1=Application.WorksheetFunction.VLookup("01/01/2007", Range("A1:B2017"), 2,0)