Autres Trier un Tableau Structuré sur une Colonne de Dates

patricktoulon

XLDnaute Barbatruc

• 4 Septembre 2021

• #2

re
Bonjour jean marie
un fichier exemple peut être ?

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Septembre 2021

• #3

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Septembre 2021

• #4

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 4 Septembre 2021

• #5

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Septembre 2021

• #6

Re
Merci Chris
Bonne fin de Soirée
jean marie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Septembre 2021

• #7

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

VB:

, DataOption:=xlSortTextAsNumbers

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 4 Septembre 2021

• #8

RE

Pour des dates c'est inutile

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Septembre 2021

• #9

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

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 4 Septembre 2021

• #10

RE

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

Mais inutile pour des nombres et des dates

 

Vote positif 0 Vote négatif

Solution

ChTi160

XLDnaute Barbatruc

• 4 Septembre 2021

• #11

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

 

Pièces jointes

• Planing_4.gif

  12.7 KB · Affichages: 24

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 4 Septembre 2021

• #12

RE

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

Tu as quelle version Excel ?

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Septembre 2021

• #13

Re
365
jean marie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Septembre 2021

• #14

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 4 Septembre 2021

• #15

RE

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

 

Vote positif 0 Vote négatif