Problème avec VLookup sous VBA

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:

---

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:

---

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.

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

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

Code:

---

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

Citation:

---

dateFin1

---

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

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

Code:

---

1 2	Dim dateFin1, dateFin2, dateFin3 As Date

---

il faut plutot delcarer comme ca

Code:

---

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

---

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

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

Code:

---

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

---

J'ai changé en:

Code:

---

1 2	coursFinAnnee1 = Application.VLookup("20/07/2000", Range("A1:B2017"), 2, 0)

---

puis en:

Code:

---

1 2	coursFinAnnee1 = Application.VLookup(CDate("20/07/2000"), Range("A1:B2017"), 2, 0)

---

Et j'ai toujours l'erreur 2042....

je ne suis pas bien réveillé aujourd hui
Le lookup recherche une date, alors que dans ta cellule tu as une valeur numérique qui a un format date, mais ca valeur est un nombre.
Donc il ne trouve pas.

Il faudrait utiliser dateval(madate) qui converti ta date en nombre

J'ai utilisé une cellule vide pour récupèrer la valeur de la date a rechercher

Code:

---

1 2 3 4 5

Range("F1").FormulaLocal = "=dateval(""" & dateFin1 & """)"   coursFinAnnee1=Application.WorksheetFunction.VLookup(Range("F1").Value, Range("A1:B2017"), 2,0)

---

Ok je vois l'idée. Par contre je ne trouve pas de fonction qui convertit une date en nombre.
J'ai essayé CInt(dateFin1) mais j'ai l'erreur: Overflow
J'ai regardé la fonction dateValue mais j'ai aussi la même erreur.
Merci de ton aide

c'est ce que fait

Code:

---

Range("F1").FormulaLocal = "=dateval(""" & dateFin1 & """)"

---

Je n'ai pas trouvé en vba

Le problème c'est que si j'utilise ça, il faut que j'écrive dans une cellule. Or une fonction VBA ne peut pas ecrire un résultat dans une cellule, il faut passer par une sub pour faire ça.
Tu ne vois pas une autre solution ?
Merci

J'ai touvé une alternative:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

dateFin1 = DateAdd("yyyy", 1, dateDebut) Dim res As String res = CStr(dateFin1)   Dim res2 As Double res2 = DateValue(res) MsgBox res2   coursFinAnnee1 = Application.VLookup(res2, Range("A1:B2017"), 2, False)

---

Il faut d'abord convertir la date en chaine de caractères puis le string en double...
Une fois que c'est fait on peut appeller VLookup, c'est completement tordu !
Merci pour ton aide en tout cas :lol: