tri croissant

ABDELHAK

XLDnaute Occasionnel
Bonjour,

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

Merci d'avance

ABDELHAK
 

JCGL

XLDnaute Barbatruc
Bonjour à tous,

Peux-tu essayer avec :
VB:
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

A+ à tous
 

JCGL

XLDnaute Barbatruc
Bonjour à tous,

Pour le tri décroissant :

VB:
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

A+ à tous
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 886
Membres
101 830
dernier inscrit
sonia poulaert