1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Dim xlApp As Excel.Application
With xlApp
.ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear()
.ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add(Key:=Range(.Cells(1, 6), .Cells(Grid_customers.DataRows.Count - 1, 6)), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)
.ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add(Key:=Range(.Cells(1, 3), .Cells(Grid_customers.DataRows.Count - 1, 3)), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)
.ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add(Key:=Range(.Cells(1, 4), .Cells(Grid_customers.DataRows.Count - 1, 4)), SortOn:=Excel.XlSortOn.xlSortOnValues, Order:=Excel.XlSortOrder.xlAscending, DataOption:=Excel.XlSortDataOption.xlSortNormal)
End With
With xlApp.ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange(Range("B1:F464"))
.Header = Microsoft.Office.Interop.Excel.XlYesNoGuess.xlYes
.MatchCase = False
.Orientation = Excel.Constants.xlTopToBottom
.SortMethod = Excel.XlSortMethod.xlPinYin
.Apply()
End With |
Partager