VBA - Find xlprevious date

Bonjour à tous,

Voici le problème qui m'amenne et qui commence à me rendre fou...

Je dispose d'un fichier qui en colonne A contient des dates (20000 lignes)

Avec le code ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Ligne() With Sheets("Test") Dim F As Double, L As Double   F = .Columns(1).Find(CDate("22/01/2010")).Row L = .Columns(1).Find(CDate("22/01/2010"), , , , , xlPrevious).Row Debug.Print F Debug.Print L End With End Sub

---

Je recherche la première et la dernière ligne contenant 22/01/2010
En exécutant je trouve :

Code:

---

1 2	11184 187765

---

La première ligne est la bonne. La dernière ne l'est pas...
Idem pour le 03/02/2010
Retour :

Code:

---

1 2 3

17852 194893

---

Autre exemple : 28/01/2010
Retour :

Code:

---

1 2	14518 15356

---

Première et dernière ligne OK.


Je ne comprend rien...


Le lien pour télécharger mon fichier :


Merci d'avance à tous

bonjour

je ne vois pas pourquoi tu cherche absolument par "Cdate(XX/XX:XXXX)"

cherche par la chaine que représente la date tout simplement

Code:

---

find("(26/04/2012)"..........

---

au plaisir

Le résultat est le même chez moi....
As-tu pu tester avec mon fichier? Le.comportement est vraiment inexplicable

Bonjour,

peut-être une histoire de paramètres, vois le #14 et l'aide VBA sur Find pour bien cerner ta recherche :

FIND sur DATE incompréhensible

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

une methode tarabiscotée mais qui fonctionne

la sub cherche la date avec un jour en moins

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Ligne() With Sheets("Test") Dim F As Variant, L As Variant F = .Columns(1).Find(CDate("22/01/2010")).Row jour = Day(CDate(.Range(.Cells(F, 1).Address))) - 1 'le jour est = au jour de la date -1 previewsdate = jour & "/01/2010" 'on cherche 1 jour en moins soit le 21/01:2010 L = .Columns(1).Find(CDate(previewsdate)).Row Debug.Print F Debug.Print L End With End Sub

---

au plaisir

Merci Didier c'était en effet un problème de paramètre...
Merci à tous !