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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 17852 
 194893
Autre exemple : 28/01/2010
Retour :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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