Re : Macro pour mise en forme tableau
Bonjour Picronte,
Peux-tu m'expliquer cette macro?
Surtout après le End With
Sub Macro1()
'
' Macro1 Macro
'
'
Range("B1:M55").Select
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add _
Key:=Range("Table1[Classement Général]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-60
ActiveSheet.Shapes("Button 6").Select
Selection.OnAction = "Macro1"
Range("Q6").Select
ActiveWorkbook.Save
ChDir "C:\Users\Ludovic oliver\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Ludovic oliver\Desktop\JC Classement.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Je ne la comprends pas du tout
A+