1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Option Explicit
Sub Macro1()
ActiveSheet.Range("A7").Select
ActiveWorkbook.Worksheets("Suivi livrables").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Suivi livrables").Sort.SortFields.Add Key:=Range("A:A") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Suivi livrables").Sort
.SetRange Range("A7").CurrentRegion
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub |
Partager