Trier les colonnes sur l'ensemble des feuilles

[sellig 29]

Bonjour à tous,

J'ai créé une macro qui trie les colonnes de la feuille 8 en fonction des valeurs figurant ligne 70 (de la plus petite à la plus grande). Je souhaiterais l'améliorer en appliquant simultanément cette macro à l'ensemble des feuilles, quelque soit leurs nombres et leurs noms. (le tri ne devant toutefois pas s'appliquer à la feuille1 nommée dans le fichier joint: "Liste").

Merci d'avance pour votre aide

 

[Paritec]

Re : Trier les colonnes sur l'ensemble des feuilles

Bonsoir

Sub Trier()
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name <> "liste" Then
            ws.Rows("1:70").Sort Key1:=ws.Range("A70"), Order1:=xlAscending, Header:=xlGuess, _
                                 OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
                                 DataOption1:=xlSortNormal
            ActiveWindow.SmallScroll Down:=3
        End If
    Next ws
End Sub

a+
papou

 

[sellig 29]

Re : Trier les colonnes sur l'ensemble des feuilles

Merci Pascal