Bonsoir, Bonjour
Je souhaiterai modifier ma macro
Elle contient, entres autres, 3 possibilités de "Rangement" ( et je voudrai en ajouter une 4éme, voire une 5éme qui soit "Descending" )
Sheets("Classement Individuel(Ctrl+A)").Select
Range("b11:ay79").Select
Selection.Sort Key1:=Range("d2"), Order1:=xlDescending, Key2:=Range("e2") _
, Order2:=xlAscending, Key3:=Range("f2"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("b11").Select
End Sub
Merci pour vos propositions
Giorgios
Je souhaiterai modifier ma macro
Elle contient, entres autres, 3 possibilités de "Rangement" ( et je voudrai en ajouter une 4éme, voire une 5éme qui soit "Descending" )
Sheets("Classement Individuel(Ctrl+A)").Select
Range("b11:ay79").Select
Selection.Sort Key1:=Range("d2"), Order1:=xlDescending, Key2:=Range("e2") _
, Order2:=xlAscending, Key3:=Range("f2"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("b11").Select
End Sub
Merci pour vos propositions
Giorgios