Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Moreno076

XLDnaute Impliqué
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
179
Réponses
2
Affichages
771
Réponses
2
Affichages
1 K
Réponses
1
Affichages
1 K
  • Question Question
Microsoft 365 Recherche v + VBA
Réponses
3
Affichages
2 K
Réponses
1
Affichages
686
Réponses
2
Affichages
1 K
Réponses
8
Affichages
1 K
Retour