Double tri

Bonjour,

Je voudrais faire un double tri sur 2 colonnes tout en conservant les informations jointes sur la ligne. Dans l'onglet pointage je veux faire un premier tri sur la colonne F et le 2e tri sur la colonne D dans l'ordre décroissant tout en conservant les données de la ligne (colonne a,b et c). J'ai fais la macro Sem 1 mais je ne parviens pas à ce que dans la colonne D l'ordre se place correctement.Je joins une partie de mon classeur.

Merci de votre aide

Gil

Bonjour,

Les cellules du tableau à trier ne doivent pas être fusionnées

Sub Trier()
    With Sheets("Pointage")
        .Range("a7:f14").Sort Key1:=.Range("f7"), Order1:=xlDescending, Key2:=.Range("d7") _
        , Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    End With
End Sub

Amicalement

Claude

Merci, cela m'a été d'une grande aide

Gil

Pour solder le poste, c'est ici

Bonjour,

Suite à ma question sur le double tri, j'ai obtenu une grande aide; la formule de classement s'effectue correctement lorsque le classeur n'est pas protéger mais lorsqu'il est protéger celui ci donne un code d'erreur 1004. Comment puis je protéger mon classeur et effectuer mon tri avec la macro.

Merci

Gil

Bonjour,

En règle générale

pour déprotéger un classeur

ActiveWorkbook.Unprotect Password:="dudu"

pour déprotéger une feuille

ActiveSheet.Unprotect Password:="dudu"

Pour reprotéger,remplacer "Unprotect" par "Protect"

Le Password:="dudu" est facultatif (sans mot de passe)

Exemple (avec mot de passe "dudu")

Sub Trier()
ActiveWorkbook.Unprotect Password:="dudu"

    With Sheets("Pointage")
        .Unprotect Password:="dudu"
        .Range("a7:f14").Sort Key1:=.Range("f7"), Order1:=xlDescending, Key2:=.Range("d7") _
        , Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
        .Protect Password:="dudu"
    End With

ActiveWorkbook.Protect Password:="dudu"
End Sub

Amicalement

Claude