de celtibus » Dim Oct 18, 2009 16:57 pm
Sub tri()
'
' tri Macro
' Tri des différentes journées, en fonction du nombre de points, de la différence de buts
' puis du nombre de buts marqués
Dim N As Integer
Range("P1:X11").Select ' zone de classement général
Selection.Sort Key1:=Range("R1"), Order1:=xlDescending, Key2:=Range("X1") _
, Order2:=xlDescending, Key3:=Range("V1"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For I = 1 To 18 ' pour chaque journée de championnat
Range("Z14:AG24").Offset(N, 0).Select
Selection.Sort Key1:=Range("AA14"), Order1:=xlDescending, Key2:=Range( _
"AG14"), Order2:=xlDescending, Key3:=Range("AE14"), Order3:=xlDescending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
N = N + 11
Next I
End Sub
Sub copie()
'
' copie Macro
'
'
Range("P14:W247").Select
Selection.Copy
Range("Z14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
c le I qui cette fois est souligné
Vaut mieux être bourré que c0n ça dure moins longtemps, à moins que tu sois les 2 et dans ce cas là y'a plus rien à faire