J'aimerais réaliser une macro qui exécute un tri croissant colonne par colonne.
Exemple :
1) Sélectionner la colonne B5 à B29 puis exécuter le tri croissant
2) Sélectionner la colonne C5 à C29 puis exécuter le tri croissant
3) Sélectionner la colonne D5 à B29 puis exécuter le tri croissant
JUSQUE....
4) Sélectionner la colonne IU5 à IU29 puis exécuter le tri croissant
Option Explicit
Dim Col&
Sub Tri_1()
Application.ScreenUpdating = 0
For Col = 2 To 255
Feuil1.Range(Cells(4, Col), Cells(29, Col)).Sort key1:=Cells(5, Col), order1:=1, Header:=xlYes
Next Col
End Sub
Option Explicit
Sub Tri_2()
Application.ScreenUpdating = 0
For Col = 2 To 255
Feuil1.Range(Cells(4, Col), Cells(29, Col)).Sort key1:=Cells(5, Col), order1:=2, Header:=xlYes
Next Col
End Sub