Pb. méthode find et dates

Bonjour à tous,

Je débute en VBA sous excel et je bute sur un problème de recherche de date (dans une liste comportant toutes les dates du 31/08/1992 au 31/12/2006)...
Voici le code que j'utilise :

Code:

---

1 2 3 4 5 6

Dim Datedeb1 as date   Set Madatedeb = DateEntrée.Find(Datedeb1) If Not Madatedeb Is Nothing Then PremAdressedeb = Madatedeb.Address End If

---

Cela semble fonctionner sauf pour le 01/01/1992. Madatedeb me retourne l'adresse du 01/11/1992 alors qu'il ne devrait rien me retourner !!!
Merci pour votre aide...Je sèche!!!

On manque d'infos, (DateEntrée ?) donne un peu plus de code ;)

Voici un petit plus de code. La date à trouver (ici le 01/01/1992) est récupérée sur une autre feuille dans un variant (avec une mauvaise année) = Datedeb. Ensuite devient Datedeb1 avec la bonne année.
DateEntrée est la plage de cellule contenant les dates dans laquelle je dois trouver Datedeb1.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim DateEntrée As Range Dim Datedeb1 as date Dim Datedeb As Variant (=01/01/2006)   Datedeb1 = CDate(Datedeb) Jourdeb = CInt(Left(Datedeb1, 2)) Moisdeb = CInt(Mid(Datedeb1, 4, 2)) Datedeb1 = DateSerial(Année, Moisdeb, Jourdeb)   Set DateEntrée = Range("B4:B5239")   Set Madatedeb = DateEntrée.Find(Datedeb1) If Not Madatedeb Is Nothing Then PremAdressedeb = Madatedeb.Address End If

---

D'avance merci.

Bonjour Kriss0909,

Si vous remplacez :

Code:

---

1 2 3 4 5 6 7

Dim Datedeb As Variant (=01/01/2006)   par   Dim Datedeb As Variant   Datedeb = "01/01/2006"

---

normalement cela fonctionne à part la variable Année dans :

Code:

---

Datedeb1 = DateSerial(Année, Moisdeb, Jourdeb)

---

dont on ne sait pas où elle est initialisée.

Tu peux aussi tester ça

Code:

---

1 2 3

With Range("B4:B5239") Set Madatedeb = .Find(Datedeb1) if not MaMadatedeb is Nothing then

---

Mais tout va dépendre du format de date de ta feuille de calculs.
Ex : si tu as saisi tes dates sous le format "d/m/aaaa" et que le format de la colonne est "dd/mm/aaaa", si tu recherches selon ce dernier format, il y a peu de chances que find retrouve la donnée.
Tu dis, il y a une solution si tu as ce pb.
A+

Un grand merci à tous !
Le problème venait effectivement du format date de mes données d'origine. Elle étaient en dd/mm/yyyy. Je les ai passées en d/m/yy et ça marche !