Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Trier un Tableau Structuré sur une Colonne de Dates

ChTi160

XLDnaute Barbatruc
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)
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
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 .
VB:
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

XLDnaute Barbatruc
Re
Pourquoi cette macro trouvé sur le Net ne fonctionne pas ,que manque t'il ?
VB:
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

XLDnaute Barbatruc
Bonjour à tous
Ceci suffit
VB:
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

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

Pièces jointes

  • Planing_3.gif
    31.7 KB · Affichages: 24

ChTi160

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…