ajouter une key à une macro ?

archi · 15 Août 2004

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 · 15 Août 2004

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 · 17 Août 2004

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

Minick · 17 Août 2004

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 · 18 Août 2004

Merci ça fonctionne

ajouter une key à une macro ?

archi

Guest

Minick

Guest

archi

Guest

Minick

Guest

archi

Guest

Discussions similaires