Evelynetfrancois
XLDnaute Impliqué
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
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