1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| 'MISE EN FORME DU TABLEAU "GLOBAL ISSUES" => classement alphabetique et insertion de la ligne d'entete
Dim lastrow As Integer
lastrow = to_be_analyzed_workbook.Worksheets("Global issues").Cells.SpecialCells(xlCellTypeLastCell).Row
to_be_analyzed_workbook.Worksheets("Global issues").Sort.SortFields.Clear
to_be_analyzed_workbook.Worksheets("Global issues").Sort.SortFields.Add Key:=Range( _
"A1:A" & lastrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Global issues").Sort
.SetRange Range("A1:I" & lastrow)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With |
Partager