1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Private Sub Worksheet_Activate()
Dim MaPlage As Range
Set MaPlage = ActiveSheet.Range("B2:S" & Range("B65536").End(xlUp).Row)
Selection.Sort Key1:=Range("F3"), Order1:=xlAscending, Key2:=Range("G3") _
, Order2:=xlAscending, Key3:=Range("E3"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range("A2").Select
Range("A3").Select
ActiveCell.FormulaR1C1 = "1"
Range("A3").Select
Selection.DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step _
:=1, Trend:=False
Selection.AutoFill Destination:=Range("A3:A131")
Range("A3:A131").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Trend:=False
Range("A2").Select
End Sub |
Partager