tri croissant

[ABDELHAK]

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

 

[all_yver]

Bonjour,

Je ne suis pas pro mais tu peux faire cela via l'enregistreur de macros...

 

[JCGL]

Bonjour à tous,

Peux-tu essayer avec :

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

 

[ABDELHAK]

Bonjour JCGL,

Merci pour la macro que vous m'avez envoyé. Elle fonctionne très bien. Comparer à la macro que j'avais créée, il n'y a pas photo.

En tout cas, 10000 mercis

A+

ABDELHAK

 

[JCGL]

Bonjour à tous,

Pour le tri décroissant :

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