Bonjour
Dans la macro suivante je voudrais que ca fasse juste le tri par ordre alpha de la colonne désignation.
Là ca me le fait bien mais ca reduit la taille des colonnes.
Merci à vous
Range("Tableau3").Columns.AutoFit ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort.SortFields. _ Add2 Key:=Range("Tableau3[Désignation]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .Apply End With
Dans la macro suivante je voudrais que ca fasse juste le tri par ordre alpha de la colonne désignation.
Là ca me le fait bien mais ca reduit la taille des colonnes.
Merci à vous
Range("Tableau3").Columns.AutoFit ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort.SortFields. _ Add2 Key:=Range("Tableau3[Désignation]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .Apply End With