ajouter une key à une macro ?

[archi]

Bjr,

J'ai rajouter un 4ème ordre de tri croissant à cette macro, mais y'a une erreur que je n'arrive pas a ressoudre ??
Pouvez vous m'aider ?
Merci d'avance


Sub Tri_Tableau()
'
' Tri_Tableau Macro
' Macro enregistrée le 21/04/2004 par Archi
'

'
Range("C6Q86").Select
Selection.Sort Key1:=Range("DN6"), Order1:=xlDescending, Key2:=Range( _
"DO6"), Order2:=xlDescending, Key3:=Range("DP6"), Order3:=xlDescending, _
Key4:=Range("C6"), Order4:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[Minick]

Salut,

Tu ne peux pas avoir plus de 3 cle de trie si tu en veux une 4eme il faut
faire un second trie avec niquement la cle de trie 'Range("C6")

@+ Minick

 

[archi]

ok, mais le second tri annulera mon premier ??
y a t-il une autre solution ??

 

[Minick]

Salut,

Excuses moi je trie avec la cle 'range("C6")' il faut le faire en premier et seul.

cela devrait te donner un truc du genre.


Range("C6Q86").Select

Range("C6Q86").Select
Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Selection.Sort Key1:=Range("DN6"), Order1:=xlDescending, Key2:=Range( _
"DO6"), Order2:=xlDescending, Key3:=Range("DP6"), Order3:=xlDescending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom


(Je n'ai pas testé, verifie la syntaxe)


@+ Minick

 

[archi]

Merci ça fonctionne