Macro Tri Décroissant sur plusieurs Onglets

Bonjour, est-il possible d'avoir une macro de tri par ordre décroissant sur plusieurs onglets.

J'aimerais que cette macro, me fasse un tri par ordre décroissant de L8 à L64 par rapport à la Fonction, sans être obligé de passer par un tri manuel.

Merci

Salut snowkite,

pas sûr de bien comprendre... quand tu parles de tous les onglets...

Voici de quoi trier le tableau de droite comme tu le souhaites.

A adapter!

Range("K8:L64").Sort key1:=Range("L8"), order1:=xlDescending, Orientation:=xlTopToBottom

A+

Bonjour,

Essaie ainsi sur une copie de ton fichier.

Cdlt.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case "modele", "Feuil2"
            '
        Case Else
            Application.ScreenUpdating = False
            Sh.Range("K8:L64").Sort _
                    key1:=Range("L8"), _
                    order1:=xlDescending, _
                    Orientation:=xlTopToBottom
    End Select
End Sub

Jean-Eric a écrit :

Bonjour,

Essaie ainsi sur une copie de ton fichier.

Cdlt.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case "modele", "Feuil2"
            '
        Case Else
            Application.ScreenUpdating = False
            Sh.Range("K8:L64").Sort _
                    key1:=Range("L8"), _
                    order1:=xlDescending, _
                    Orientation:=xlTopToBottom
    End Select
End Sub

Merci, mais ou faut-il que je colle ce code car dans Thisworkbook, il y a déjà une macro me permettant d'attribuer la couleur de l'onglet par rapport au samedi ou dimanche.

Re,

Tu copie la procédure sous celle existante.

Cdlt.

Cela marche Nickel, et si par hasard, je veux faire un tri croissant, alors je remplace "order1:=xlDescending," par "order1:=xlAscending,"?