Trier des dates ?

[antoine]

Bonjour et bon début de semaine
j'aurais besoin de trier par odre chronologique des dates au format jj/mm/aaaa
la fonction d'exel trier par odre croissant fonctione très bien et je comptais l'utiliser en l'enregistrant dans une macro.
seulement le hic c'est que une fois enregistré, elle ne trie plus correctement les dates
Voila le fichier joint.
merci !

antoine

 

[albert]

bonjour antoine,
fais un essai avec

Sub Trier()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[antoine]

nickel, merci albert. ça trie a merveille ;-)
Mais juste histoire de ne pas re-poser de question débille j'aimerais comprendre ou ce situe l'erreur dans ce code ( qui meme si il ressemble a celui que tu fourni ce marche pas ) apparament la différence est dans la méthode de sélection, mais je ne comprend pas comment ça peut changer quelque chose

sub trier2()
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
end sub

en tout cas merci du coups de main !

antoine

 

[albert]

je n'ai pas d'explication particulière à te donner, c'est une habitude que j'ai prise

peut-être que pour trier sur A:A, il faut un titre à la colonne