XL 2013 trie de plusieurs feuilles excel

[bandimalou]

bonjour a tous

je cherche une solution pour pouvoir effectué un tri d'une ou de 2 colonnes en même temps sur toutes les feuilles (environ 40 feuilles)
je joint un fichier pour exemple
j aimerais soit trié la colonne Qté ou/et la colonne CA

merci de m'aider

cordialement

 

[CPk]

Re : trie de plusieurs feuilles excel

Bonjour, je ne suis pas très fort en tri mais ceci fonctionne pour le tri sur la quantité par ordre croissant.
Que faut-il rajouter en plus ?

Sub tri()
    Application.ScreenUpdating = False
    Dim a As Worksheet
    For Each a In Worksheets
        a.Activate
        a.UsedRange.Sort key1:=Columns(3), order1:=xlAscending, Header:=xlYes
    Next
    Application.ScreenUpdating = True
End Sub

 

[JCGL]

Re : trie de plusieurs feuilles excel

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit


Sub Balaye()
    Dim F As Object, Choix_Col As String, Choix_Ord As String
    Choix_Col = InputBox("Choix de la colonne à trier", "Choix...", "C")
    Choix_Ord = InputBox("Choix de l'ordre (1 ou 2)", "Choix...", 2)
    Application.ScreenUpdating = 0
    For Each F In Worksheets
        F.Activate
        ActiveSheet.Range("A1:F5000").Sort Key1:=Range(Choix_Col & "1"), Order1:=Choix_Ord, Header:=xlYes
    Next F
    Feuil1.Activate
End Sub

A+ à tous

Edition : Bonsoir CPK

 

[bandimalou]

Re : trie de plusieurs feuilles excel

bonsoir
je n'en demandais pas autant c parfait merci beacoup