Trier les colonnes sur l'ensemble des feuilles

sellig 29 · 11 Juillet 2010

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 · 11 Juillet 2010

Re : Trier les colonnes sur l'ensemble des feuilles

Bonsoir

Code:

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 · 11 Juillet 2010

Re : Trier les colonnes sur l'ensemble des feuilles

Merci Pascal 😉

Trier les colonnes sur l'ensemble des feuilles

sellig 29

XLDnaute Occasionnel

Pièces jointes

Paritec

XLDnaute Barbatruc

sellig 29

XLDnaute Occasionnel

Discussions similaires

Trier les colonnes sur l'ensemble des feuilles

sellig 29

XLDnaute Occasionnel

Pièces jointes

Paritec

XLDnaute Barbatruc

sellig 29

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency