tri sur plusieurs colonnes

[jad73]

bonjour
je fais un tri sur 6 colonnes actuellement, il m'en faudrait 2 de plus,çi dessous le tri que j'utilises si je mets 2 colonnes de plus G et H,aurai-je des problemes.

Sub triabc1()
Range("A2:T900").Sort Key1:=Range("D3"), Order1:=xlAscending, Key2:=Range( _
"E3"), Order2:=xlAscending, Key3:=Range("F3"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Range("A2:T900").Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range( _
"B3"), Order2:=xlAscending, Key3:=Range("C3"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal

End Sub
merci

 

[Cousinhub]

Re : tri sur plusieurs colonnes

Bonsoir,

Pas de souci...

Le principe, tu tries tout d'abord par les données de moindre importance dans ton tri..

Si tu tries sur 8, Et que tu voudrais les données triées par : A, B, C, D, E, F, G, H

tu commences par Key1 : G3, Key2 : H3

Puis la suite de ton code

Ainsi, tu tries par A, puis B, puis C.... jusqu'à H

 

[jad73]

Re : tri sur plusieurs colonnes

reBJ
merci bhbh j'ai oublié de demander mais je pense qu'il faut que j'en mette 4 au premier et 4 au second" E,F,G,H puis A,B,C,D"
merci

 

[Cousinhub]

Re : tri sur plusieurs colonnes

RE,

Non, tu ne peux pas...

Il te faut déterminer tes clés de tri..

Et ensuite, un tri avec 3 clés Max (limites d'Excel)

Ainsi, premier tri : G, H
2ème : D, E, F
3ème : A, B, C

 

[Cousinhub]

Re : tri sur plusieurs colonnes

Re-,

et en complément, pour que tes tris fonctionnent quelque soit la version d'Excel (notamment avant 2003), évite les DataOptions..

Essaie ainsi :

Sub triabc1()
With Range("A2:T900")
    .Sort Key1:=Range("G3"), Order1:=xlAscending, Key2:=Range("H3"), Order2:=xlAscending, _
        Header:=xlGuess
    .Sort Key1:=Range("D3"), Order1:=xlAscending, Key2:=Range("E3"), Order2:=xlAscending, _
        Key3:=Range("F3"), Order3:=xlAscending, Header:=xlGuess
    .Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3"), Order2:=xlAscending, _
        Key3:=Range("C3"), Order3:=xlAscending, Header:=xlGuess
End With
End Sub

 

[jad73]

Re : tri sur plusieurs colonnes

bjr
merci bhbh je viens de rentrer ton code qui fonctionne bien
merci encore