Bonjour à tous
J'ai 1 macro de ce type
Sub interimclsst()
'
' interimclsst Macro
' Macro enregistrée le 01/06/10 par Vanessa
' Touche de raccourci du clavier: Ctrl+A
'
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
Je voudrai ajouter Key4:=Range("l2") et Key5:=Range("m2") tous les 2 en Descending
mais quand je les ajoutent, sa marche pas????
A noter que cette macro vient d'un fichier téléchargeable de ce forum mais je sais plus trop lequel )
Merci VANESS
J'ai 1 macro de ce type
Sub interimclsst()
'
' interimclsst Macro
' Macro enregistrée le 01/06/10 par Vanessa
' Touche de raccourci du clavier: Ctrl+A
'
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
Je voudrai ajouter Key4:=Range("l2") et Key5:=Range("m2") tous les 2 en Descending
mais quand je les ajoutent, sa marche pas????
A noter que cette macro vient d'un fichier téléchargeable de ce forum mais je sais plus trop lequel )
Merci VANESS