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
| Sub calcul()
'
' calcul Macro
' Macro enregistrée le 30/06/99 par Catherine Debeer
'
'
'sélectionne la plage de cellule "alpha"
Application.Goto Reference:="alpha"
'copie cette plage de cellule dans le clipboard
Selection.Copy
'sélectionne la cellule A10
Range("A10").Select
'sélectionne la feuille "ordre de mérites"
Sheets("ordre de mérites").Select
'séléctionne la range A1 de "ordre de mérites"
Range("A1").Select
'colle ce qui a dans le clipboard
ActiveSheet.Paste
'on sélectionne la plage nommée "delibec"
Application.Goto Reference:="delibec"
Application.CutCopyMode = False
'on classe par ordre décroissant et par rapport au pourcentage
Selection.Sort Key1:=Range("AK11"), Order1:=xlDescending, Key2:=Range( _
"AJ11"), Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
ActiveWindow.SmallScroll Down:=-3
'on sélectionne la cellule B9
Range("B9").Select
End Sub |
Partager