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

SwimCoachNico79 · 1 Mars 2021

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 · 1 Mars 2021

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 · 1 Mars 2021

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+

SwimCoachNico79 · 1 Mars 2021

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

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 · 1 Mars 2021

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+

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 · 1 Mars 2021

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 · 1 Mars 2021

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 ?

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

job75 · 1 Mars 2021

SwimCoachNico79 à dit:
En effet, j'ai un message d'erreur dans le code du post #1 au milieu de ce dernier

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.

SwimCoachNico79 · 1 Mars 2021

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.

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 · 1 Mars 2021

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 · 1 Mars 2021

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

Malheureusement j'ai tjrs le même message d'erreur
Merci pour votre aide.
SCN79

soan · 2 Mars 2021

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

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

SwimCoachNico79

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

SwimCoachNico79

XLDnaute Occasionnel

SwimCoachNico79

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

SwimCoachNico79

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

SwimCoachNico79

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

SwimCoachNico79

XLDnaute Occasionnel

soan

XLDnaute Barbatruc

Discussions similaires