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