Tri bizarre sur date

Bonjour,

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

Code:

---

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...

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

Ok merci je vais voir ca.

ps: c'est le tri qui est bizarre lol

Salut jeo13

Citation:

---

Code:

---

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+

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 ;)

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

Citation:

---

Datefin = int(Range("G10"))

---

Et ca fonctionne aussi!:king:

Merci !

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