Avis aux Specialistes Macros

Vanessa69

XLDnaute Nouveau
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
 

Statistiques des forums

Discussions
312 197
Messages
2 086 104
Membres
103 117
dernier inscrit
augustin.morille