Autres Trier un Tableau Structuré sur une Colonne de Dates

[ChTi160]

Bonjour à Toutes et Tous
je cherche mais n'arrive pas à trouver la procédure qui permet un tri effectif des dates d'une colonne de dates d'un tableau Structuré!
Tableau de 5 colonnes
j'ai essayé pas mal de procédures trouvées sur le Net ,mais mes dates ne sont pas triées ,que ce soit dans un sens ou l'autre .
Ou bien y'a t'il une explication qui explique cela ?
Merci par avance de vos exemple et autre explications
merci par avance
Jean marie (Chti160) (O365)

 

[patricktoulon]

re
Bonjour jean marie
un fichier exemple peut être ?

 

[ChTi160]

Re
je viens pour la première fois , je crois , d'utiliser l'enregistreur de macro et j'ai obtenu ce que je veux !
je ne comprends pas pourquoi toutes les procédures que j'ai testé (+10 Lol) ne fonctionne pas !
l'enregistrement de la procédure .

Sub TriBDD()
'
' TriBDD Macro'
    Range("D4").Select
    ActiveWorkbook.Worksheets("Location").ListObjects("Tbl_BDD").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Location").ListObjects("Tbl_BDD").Sort.SortFields. _
        Add2 Key:=Range("Tbl_BDD[Date de Sortie]"), SortOn:=xlSortOnValues, Order _
        :=xlDescending, DataOption:=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Location").ListObjects("Tbl_BDD").Sort
        .Header = xlYes
        .MatchCase = True
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

je vais l'adaptée et reviens si problème
Merci Patrick de ta réactivité !
Excuses §
jean marie

 

[ChTi160]

Re
Pourquoi cette macro trouvé sur le Net ne fonctionne pas ,que manque t'il ?

Sub SortListObject()
 Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("Location")
 Dim list As ListObject: Set list = sht.ListObjects("TBl_BDD")
 With list.DataBodyRange
 .Sort Key1:=.Range("C1"), Order1:=xlDescending, Header:=xlYes
 End With
End Sub

 

[chris]

Bonjour à tous
Ceci suffit

Sub TriBDD()
    With Range("Tbl_BDD").ListObject
        .Sort.SortFields.Clear
        .Sort.SortFields.Add2 Key:=.ListColumns("Date de Sortie").Range, _
             SortOn:=xlSortOnValues, Order:=xlDescending
        .Sort.Apply
    End With
End Sub

 

[ChTi160]

Re
Merci Chris
Bonne fin de Soirée
jean marie

 

[ChTi160]

Re
si je ne mets pas dans ta Procédure :

, DataOption:=xlSortTextAsNumbers

ca ne fonctionne pas normalement !
??????
encore merci
jean marie

 

[chris]

RE

Pour des dates c'est inutile

 

[ChTi160]

Re
je ne comprends pas Lol
mais bon ça fonctionne !
ca interprète peut être les dates par leur Numero ???????
mon Tableau
Merci encore
jean marie

 

[chris]

RE

Quand tu as des textes qui ressemblent à des nombres, ce choix est utile : xlSortTextAsNumbers

Mais inutile pour des nombres et des dates

 

[ChTi160]

Re
ta procédure sans l'ajout DataOption:=xlSortTextAsNumbers et avec xlAscending
voir le résultat
avec c'est bon ????????
jean marie

 

[chris]

RE

Alors ta colonne contient des textes et non des dates ou pas que des dates...

Tu as quelle version Excel ?

 

[ChTi160]

Re
365
jean marie

 

[ChTi160]

Re
après avoir passé en revue toutes mes dates cela fonctionne merci!
j'avais pourtant mis ma colonne en Dates ????
mais il devait y avoir un espace ou autre au début de chaque date !
Merci Chris
Bonne fin de Soirée
jean marie

 

[chris]

RE

Le format ne préjuge pas du type car l'habit ne fait pas le moine !