Microsoft 365 Réduire macro "Tri" suite enregistreur macro

S

SwimCoachNico79

XLDnaute Occasionnel
Bonjour à tous,
Je viens d'utiliser l'enregistreur de macro est au regard de la longueur du code, je voulais savoir si il était possible de l'écrire de manière plus simple et surtout moins longue ,
Merci par avance pour votre aide.
SCN79



Sub Tri()
'
' Tri Macro
'

'
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[06/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[07/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[08/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[09/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[10/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[11/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[12/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[13/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[14/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[15/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[16/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[17/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[18/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[19/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[20/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[21/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[22/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[23/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[24/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[25/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[26/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[27/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[28/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[29/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[30/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[31/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[01/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[02/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[03/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[04/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[05/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[06/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[07/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[08/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[09/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[06/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[07/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[08/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[09/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[10/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[11/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[12/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[13/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[14/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[15/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[16/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[17/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[18/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[19/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[20/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[21/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[22/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[23/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[24/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[25/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[26/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[27/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[28/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[29/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[30/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[31/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[01/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[02/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[03/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[04/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[05/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[06/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[07/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[08/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[09/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AO", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[06/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[07/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[08/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[09/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[10/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[11/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[12/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[13/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[14/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[15/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[16/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[17/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[18/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[19/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[20/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[21/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[22/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[23/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[24/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[25/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[26/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[27/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[28/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[29/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[30/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[31/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[01/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[02/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[03/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[04/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[05/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[06/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[07/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[08/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[09/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="P", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[06/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[07/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[08/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[09/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[10/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[11/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[12/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[13/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[14/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[15/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[16/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[17/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[18/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[19/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[20/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[21/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[22/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[23/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[24/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[25/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[26/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[27/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[28/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[29/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[30/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[31/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[01/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[02/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[03/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[04/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[05/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[06/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[07/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[08/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[09/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="DPA", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
 
Trier par date Trier par votes
Hasco

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Vous faites des tris les uns à la suite des autres sur chaque colonne de votre tableau SYNTHESE ! ? effectivement ce n'est ni utile ni efficace. Que voulez-vous faire exactement ?

Joignez un fichier exemple avec explications, tenants et abouttissants.

cordialement
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour SwinCoachNico79, le forum,

Ceci doit faire l'affaire, à tester :
VB: 
Sub Tri()
Dim a, dat As Date, i%
a = Array("AC", "AO", "P", "DPA")
With ActiveWorkbook.Sheets("SYNTHESE").ListObjects("Synthèse").Sort
    .SortFields.Clear
    For dat = CDate("6/7/21") To CDate("9/8/21")
        For i = 0 To UBound(a)
            .SortFields.Add2 Key:=Range("Synthèse[" & dat & "]"), SortOn:=xlSortOnValues, Order:= _
                xlAscending, CustomOrder:=a(i), DataOption:=xlSortNormal
    Next i, dat
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub
Edit : salut Roblochon, comme d'habitude la page se rafraîchit tardivement...

A+
 
Dernière édition:
Vote positif 0 Vote négatif
S

SwimCoachNico79

XLDnaute Occasionnel
Roblochon à dit:
Bonjour,

Vous faites des tris les uns à la suite des autres sur chaque colonne de votre tableau SYNTHESE ! ? effectivement ce n'est ni utile ni efficace. Que voulez-vous faire exactement ?

Joignez un fichier exemple avec explications, tenants et abouttissants.

cordialement
Cliquez pour agrandir...
Bonjour je dois trier des noms de personnes en fonction de leur jour d'arrivée et de leur statut.
Ex : Tous les AC qui arrivent le 06/07, puis tous les AO qui arrivent le 07/07 etc. juqu'au 09/08 puis idem pour les AO, puis les P puis les DPA (dans cet ordre).
 
Vote positif 0 Vote négatif
S

SwimCoachNico79

XLDnaute Occasionnel
job75 à dit:
Bonjour SwinCoachNico79, le forum,

Ceci doit faire l'affaire, à tester :
VB: 
Sub Tri()
Dim a, dat As Date, i%
a = Array("AC", "AO", "P", "DPA")
With ActiveWorkbook.Sheets("SYNTHESE").ListObjects("Synthèse").Sort
    .SortFields.Clear
    For dat = CDate("6/7/21") To CDate("9/8/21")
        For i = 0 To UBound(a)
            .SortFields.Add2 Key:=Range("Synthèse[" & dat & "]"), SortOn:=xlSortOnValues, Order:= _
                xlAscending, CustomOrder:=a(i), DataOption:=xlSortNormal
    Next i, dat
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub
A+
Cliquez pour agrandir...
job75, j'ai un message d'erreur "erreur d'execution 13" sur la ligne :
.SortFields.Add2 Key:=Range("Synthèse[" & dat & "]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:=a(i), DataOption:=xlSortNormal
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Je n'ai pas utilisé les boucles dans le bon ordre, testez maintenant :
VB: 
Sub Tri()
Dim a, i%, dat As Date
a = Array("AC", "AO", "P", "DPA")
With ActiveWorkbook.Sheets("SYNTHESE").ListObjects("Synthèse").Sort
    .SortFields.Clear
    For i = 0 To UBound(a)
        For dat = CDate("6/7/21") To CDate("9/8/21")
            .SortFields.Add2 Key:=Range("Synthèse[" & dat & "]"), SortOn:=xlSortOnValues, Order:= _
                xlAscending, CustomOrder:=a(i), DataOption:=xlSortNormal
    Next dat, i
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub
Cela dit êtes-vous sûr que le code du post #1 donne le bon résultat ?
 
Vote positif 0 Vote négatif
S

SwimCoachNico79

XLDnaute Occasionnel
job75 à dit:
Je n'ai pas utilisé les boucles dans le bon ordre, testez maintenant :
VB: 
Sub Tri()
Dim a, i%, dat As Date
a = Array("AC", "AO", "P", "DPA")
With ActiveWorkbook.Sheets("SYNTHESE").ListObjects("Synthèse").Sort
    .SortFields.Clear
    For i = 0 To UBound(a)
        For dat = CDate("6/7/21") To CDate("9/8/21")
            .SortFields.Add2 Key:=Range("Synthèse[" & dat & "]"), SortOn:=xlSortOnValues, Order:= _
                xlAscending, CustomOrder:=a(i), DataOption:=xlSortNormal
    Next dat, i
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub
Cela dit êtes-vous sûr que le code du post #1 donne le bon résultat ?
Cliquez pour agrandir...
Tjrs le même message d'erreur... :-(
En effet, j'ai un message d'erreur dans le code du post #1 au milieu de ce dernier
 
Vote positif 0 Vote négatif
S

SwimCoachNico79

XLDnaute Occasionnel
job75 à dit:
Alors vous avez modifié le code de l'enregistreur de macro ?

Débrouillez-vous pour nous donner un code qui fonctionne, ce n'est plus le sujet de ce fil.
Cliquez pour agrandir...
Le code qui fonctionne est celui-ci, j'ai naivement cru qu'en le dupliquant trois fois et en modifiant les AC en AO, P puis DPA cela allait fonctionner... en vain...



Sub Tri()
'
' Tri Macro
'

'
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[06/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[07/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[08/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[09/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[10/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[11/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[12/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[13/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[14/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[15/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[16/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[17/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[18/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[19/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[20/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[21/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[22/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[23/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[24/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[25/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[26/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[27/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[28/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[29/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[30/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[31/07/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[01/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[02/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[03/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[04/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[05/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[06/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[07/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[08/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort.SortFields. _
Add2 Key:=Range("Synthèse[09/08/2021]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, CustomOrder:="AC", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("SYNTHESE").ListObjects("Synthèse").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
C'est bien ce que je pensais alors testez :
VB: 
Sub Tri()
Dim a, i%, dat As Date
a = Array("AC", "AO", "P", "DPA")
With ActiveWorkbook.Sheets("SYNTHESE").ListObjects("Synthèse").Sort
    For i = 0 To UBound(a)
        .SortFields.Clear
        For dat = CDate("6/7/21") To CDate("9/8/21")
            .SortFields.Add2 Key:=Range("Synthèse[" & dat & "]"), SortOn:=xlSortOnValues, Order:= _
                xlAscending, CustomOrder:=a(i), DataOption:=xlSortNormal
        Next dat
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    Next i
End With
End Sub
 
Vote positif 0 Vote négatif
S

SwimCoachNico79

XLDnaute Occasionnel
job75 à dit:
C'est bien ce que je pensais alors testez :
VB: 
Sub Tri()
Dim a, i%, dat As Date
a = Array("AC", "AO", "P", "DPA")
With ActiveWorkbook.Sheets("SYNTHESE").ListObjects("Synthèse").Sort
    For i = 0 To UBound(a)
        .SortFields.Clear
        For dat = CDate("6/7/21") To CDate("9/8/21")
            .SortFields.Add2 Key:=Range("Synthèse[" & dat & "]"), SortOn:=xlSortOnValues, Order:= _
                xlAscending, CustomOrder:=a(i), DataOption:=xlSortNormal
        Next dat
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    Next i
End With
End Sub
Cliquez pour agrandir...
Malheureusement j'ai tjrs le même message d'erreur
Merci pour votre aide.
SCN79
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonjour SCN79, Roblochon, job75,

ceci va peut-être aider : le message d'erreur dont tu parles est l'erreur n° 13 : incompatibilité de type ; donc c'est très possible qu'une donnée de ton classeur en soit la cause ; et comme c'est toi qui a ton classeur, et qu'il n'est pas joint à tes posts, t'es le seul à pouvoir le vérifier ! 😜 😁 peut-être qu'il y a une valeur d'erreur qui traîne quelque part, comme par exemple #VALEUR! ? ou autre chose... bonne chance dans tes recherches ! 🍀​

soan
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
16
Affichages
700
Phil69970
Phil69970
C
  • Question
XL 2013 Macro décale d'une colonne
Réponses
1
Affichages
460
candido57
C
Usine à gaz
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
469
Usine à gaz
Usine à gaz
J
  • Question
XL 2019 Trier efficacement un tableau
Réponses
3
Affichages
439
JMP56
J
G
  • Question
Microsoft 365 tri automatique dates
Réponses
6
Affichages
902
GUERET
G
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
615
Averell1976
A
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
826
MickaeL_D
M
B
  • Question
XL pour MAC Problème macro tri
Réponses
2
Affichages
603
Benjy51190
B
J
  • Question
XL 2019 probleme Sheets("entreeor").ListObjects(1).ListRows.Add
Réponses
11
Affichages
1 K
Gégé-45550
Gégé-45550
S
  • Question
Microsoft 365 Erreur d'exécution '91'
Réponses
11
Affichages
693
Staple1600
Staple1600

Membres actuellement en ligne

15 membres et 76 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 094
Messages
2 116 157
Membres
112 673
dernier inscrit
ìntellisoft