tri sur plusieurs colonnes

  • Initiateur de la discussion Initiateur de la discussion jad73
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jad73

XLDnaute Occasionnel
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
 
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
 
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 :

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 listbox
Réponses
18
Affichages
298
Réponses
17
Affichages
1 K
Réponses
5
Affichages
545
Réponses
6
Affichages
1 K
Réponses
2
Affichages
772
Retour