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

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
 

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
 

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:

SwimCoachNico79

XLDnaute Occasionnel
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
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).
 

SwimCoachNico79

XLDnaute Occasionnel
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+
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
 

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 ?
 

SwimCoachNico79

XLDnaute Occasionnel
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 ?
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
 

SwimCoachNico79

XLDnaute Occasionnel
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.
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
 

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
 

SwimCoachNico79

XLDnaute Occasionnel
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
Malheureusement j'ai tjrs le même message d'erreur
Merci pour votre aide.
SCN79
 

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
 

Discussions similaires