1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Sub Macro_MAJ_classement()
'
' Macro_MAJ_classement Macro
' Permet en lançant la macro d'actualiser le tableau de droite
' copier coller des valeurs du tableau AG2:AH999 vers AL2:AL999 puis tri par colonne AL puis AK
'
'
Range("AG2:AH999").Select
ActiveWindow.SmallScroll Down:=-78
Selection.Copy
Range("AK2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Tab viewers mens 2017_01").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Tab viewers mens 2017_01").Sort.SortFields. _
Add Key:=Range("AL2:AL999"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Tab viewers mens 2017_01").Sort.SortFields. _
Add Key:=Range("AK2:AK999"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tab viewers mens 2017_01").Sort
.SetRange Range("AK1:AL999")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub |
Partager