Discussion :

[iperkut]

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

[patricktoulon]

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 :

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

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

au plaisir

[iperkut]

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

[Didier Gonard]

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

[patricktoulon]

une methode tarabiscotée mais qui fonctionne

la sub cherche la date avec un jour en moins

Code :

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

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

[iperkut]

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