Discussion :

[ouskel'n'or]

(Extrait d'une réponse et à défaut d'une solution plus sioux qu'il me semble pourtant bien avoir vue sur le forum)
Si on trie les données selon les dates formatées, on obtient :
01/01/06
01/03/06
02/02/06
etc.
Pour trier par date, convertir la colonne de dates en nombre sans décimale, Trier les données et reformater la colonne en date.
C'est lourd mais ça donne le résultat excompté
Exemple si les dates sont dans la colonne A

Code :

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

1
2
3
4
5
6
7
8
9
    Columns("A:A").Select
    Selection.NumberFormat = "0"
    DoEvents
    Cells.Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    DoEvents
    Columns("A:A").Select
    Selection.NumberFormat = "dd/mm/yyyy"

Header:=xlYes s'il existe un en-tête de colonne

Ça, c'était pour le côté pédagogique de la chose.
Une fois "traduit en VBA", ça donnerait

Code :

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

1
2
3
4
5
6
    Columns("A:A").NumberFormat = "0"
    DoEvents
    Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    DoEvents
    Columns("A:A").NumberFormat = "dd/mm/yyyy"

[AlainTech]

Bien franchement, je ne comprends pas où est le problème...

Si une colonne Excel contient des dates, le tri se fera correctement car Excel stocke les dates de façon numérique. Seul l'affichage est formaté.

Par contre, si la colonne contient du texte (représentant des dates), là le tri sera incorrect.

Je pense donc que le fait de forcer l'affichage en numérique oblige Excel à essayer d'interpréter le contenu des cellules et convertir le texte en date.

Si tu as encore un fichier présentant cette particularité, je pense qu'une simple boucle forçant un CDate sur le contenu des cellules devrait remettre les choses en ordre.

[ouskel'n'or]

Quand les dates sont saisies manuellement, si la colonne n'est pas formatée, tu as des variations dans le format qui trompe Excel.
Formater avec cdate, c'est bien, mais sur une base de données qui ne t'appartient pas, ça nécessite de passer toutes tes dates en revue. Le tri par date que je propose évite cela.
D'ailleurs le problème se pose bien puisque la question sur le tri de date est récurrente, ce qui signifie bien que le problème l'est aussi
Ceci dit mon code ne règle pas le pb de manière exhaustive... Si la plage de données commence à la ligne 5, colonne 3, on fait quoi ?
J'ajoute donc un code qui permet de corriger cette omission sans prétendre l'être, exhaustif...
Je suppose donc que la première colonne de la plage à trier est la colonne 3, que la première ligne est la ligne 5... Ce qui donne

Code :

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

1
2
3
4
5
6
7
8
9
    PremiereLigne = 5
    Premierecolonne = 3
    Columns(Premierecolonne).NumberFormat = "0"
    Cells(PremiereLigne, Premierecolonne).CurrentRegion.Sort _
          Key1:=Cells(PremiereLigne, Premierecolonne), _
          Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    DoEvents
    Columns(Premierecolonne).NumberFormat = "dd/mm/yyyy"

Pour que ce code fonctionne avec CurrentRegion, il est nécessaire qu'aucune ligne ni colonne de la plage de données à trier ne soit entièrement vide (une cellule vide dans la plage ne pose pas de pb)