Discussion :

[jeo13]

Bonjour,

J'aimerais trier un classeur selon la date.
Pour cela j'ai mis en place ce code:

Code :

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

1
2
3
4
5
6
7
8
9
    Dim Datefin As Date
 
    Datefin = ActiveSheet.Range("G10").Value
 
    Sheets("CounterpartsStatistics").Activate
    Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="<=" & Datefin, _
    Operator:=xlAnd

ou G10 est la cellule qui recoit une valeur de date entrée par l'utilisateur.
Toutes les dates sont au format dd-mmm-yy.

En résultat j'obtiens bien un tri mais certaines dates, qui devraient etre enlevées par tri, subsistent...

Avez-vous une idée d'ou ce bug peut provenir ?

Merci d'avance !

remarque: mes dates sont au format dd-mmm-yy. Le bug viendrait-il d'ici? sachant que quand je fais le tri/filtre manuellement ca marche comme il faut...

[ouskel'n'or]

Vérifie, sur tes dates "bizarres" qu'elles n'aient pas un espace indésirable...
Sinon je ne vois pas.

[jeo13]

Ok merci je vais voir ca.

ps: c'est le tri qui est bizarre lol

[Gorfael]

Salut jeo13

Code :

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

1
2
3
4
5
6
7
    Dim Datefin As Date
    Datefin = ActiveSheet.Range("G10").Value
    Sheets("CounterpartsStatistics").Activate
    ActiveSheet.AutoFilterMode = False 'désactive l'autofiltre s'il y est
    Range("A1").AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="<=" & Datefin, _
    Operator:=xlAnd

En résultat j'obtiens bien un tri mais certaines dates, qui devraient etre enlevées par tri, subsistent...

repére une cellule qui devrait disparaître pour un G10 donné
- tu copies dessus le format d'une cellule qui marche
Si ça ne fonctionne pas, retape la date à la main.
Le problème avec les date, c'est qu'on utilise la partie entière du nombre, et si il a une fraction de centième, dans la partie tronquée, il devient supérieur à la date visible et cest valable pour G10
tu peux essayer de remplacer :
Datefin = ActiveSheet.Range("G10")
par
Datefin = int(Range("G10"))
A+

[ouskel'n'or]

Hello Gorfael,
Encadre les citations des balises QUOTE et /QUOTE entre crochets, pas G, QUOTE.
Icône Pièce jointe 27512 en mode d'édition

[jeo13]

C'est bon ca fonctionne.
En fait j'ai fait autrement:

Dans la cellule G10, en imposant un format mm/dd/yyyy (et non pas dd-mmm-yy), ca fonctionne comme il faut.

J'ai testé aussi

Datefin = int(Range("G10"))

Et ca fonctionne aussi!

Merci !

[ouskel'n'or]

Ok, alors c'est parce qu'un tri sur les dates range ces dates selon le premier caractère rencontré. Dans le format jj/mm/aaaa, le premier caractère est le jour. Et le 19 mai est avant le 20 janvier.
Pour éviter ça et conserver le format, avant le tri tu mets ta colonne en format numérique et après le tri tu la remets au format voulu.
Le passage en format numérique transforme les dates en N° de série qui eux sont triés dans le bon ordre.
A toutes fins utiles