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
Re : Trier plusieurs colonnes independamment l une de l autre
Bonjour à tous,
Peux-tu essayer :
VB:
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