XL 2013 Tri date

[Moreno076]

Bonjour.

J'ai un soucis dans le fichier ci-joint.
En effet lorsque je clique sur le bouton tri date, je voudrais que les dates se trient de plus récent au plus ancien.
Mais voilà certaines lignes s'inversent entre le mois et le jour mais pas toutes, du coup le résultat est fossé.

Voilà ma macro, j'ai essayé plein de choses mais en vain.

Merci pour votre aide

Sub T_DATE()
Dim PlgDon As Range, T(), L As Long
Set PlgDon = Sheets("Synthèse").UsedRange
With PlgDon.Columns("H")
T = .Value
For L = 2 To UBound(T, 1)
If VarType(T(L, 1)) = vbString Then T(L, 1) = CDate(T(L, 1))
Next L
.NumberFormat = "m/d/yyyy"
.Value = T
End With
PlgDon.Sort key1:=PlgDon.Columns("H"), Order1:=xlDescending, _
key2:=PlgDon.Columns("C"), Order2:=xlDescending, _
Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[fanfan38]

Bonjour,
Le soucis vient de tes dates... Quand tu regardes dans la barre de formule certaines dates (comme la 2ème par rapport à la première) apparaissent différemment malgré une mise en forme identique... si tu ressaisi la date l'affichage est correct...
A+ François

 

[Moreno076]

Bonjour,
Le soucis vient de tes dates... Quand tu regardes dans la barre de formule certaines dates (comme la 2ème par rapport à la première) apparaissent différemment malgré une mise en forme identique... si tu ressaisi la date l'affichage est correct...
A+ François

Bonjour, oui ca j'ai bien vu n'y a t il pas un moyen de résoudre ça? Merci

 

[Moreno076]

Ca ne fonctionne pas