Trier plusieurs colonnes independamment l une de l autre

[Evelynetfrancois]

Bonsoir tout le monde
Je voudrais simplifier une de mes macros
Pour trier 30 colonnes indépendamment l une de l autre

Je note pour la colonne A
Columns("A:A").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Puis pour la B

Columns("B:B").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

ETC....
Ca fonctionne , mais me parait cochon!!! comme écriture


Comment boucler sur ces 30 colonnes?
pour raccourcir cette macro qui n en fini pas........

Merci pour tout d'avance
Très bonne soirée
E et F

 

[JCGL]

Re : Trier plusieurs colonnes independamment l une de l autre

Bonjour à tous,

Peux-tu essayer :

Sub Trie()
Dim Col&
For Col = 1 To 30
Range(Cells(1, Col), Cells(1000, Col)).Sort Key1:=Cells(2, Col), Order1:=xlAscending, Header:=xlYes
Next Col
End Sub

A+ à tous

 

[Evelynetfrancois]

Re : Trier plusieurs colonnes independamment l une de l autre

Merci JCGL
une merveille !!
ca fonctionne parfaitement , en quelques lignes , à la place de 200 !!!!
un grand merci , vraiment ...
bonne soirée
E et F