Excel macro 2 tri

Résolu
francis -  
Bonjour,

j'ai la macro de tri suivant par la colonne R et je voudrais que par la suite il tri par la conne E.

Private Sub Worksheet_Activate()
Range("A9:r500").Select
Selection.Sort Key1:=Range("r9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("r9").Select
End Sub

Merci de votre aide

3 réponses

  1.  pilas31 Contributeur
    Bonjour,

    Dans ce cas il faut ajouter un deuxième critère.
    Comme cela :

    Range("E9:R500").Select
    Selection.Sort Key1:=Range("R9"), Order1:=xlAscending, Key2:=Range _
    ("E9"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
    :=False, Orientation:=xlTopToBottom

    A+
    0
    2. francis
      Je viens de le tester ça ne marche pas par-contre le 2e tri supprime le premier tri.

      Private Sub Worksheet_Activate()
      Range("A9:R500").Select
      Selection.Sort Key1:=Range("R9"), Order1:=xlAscending, Key2:=Range _
      ("E9"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
      :=False, Orientation:=xlTopToBottom
      Range("r9").Select
      End Sub
      0
      1. pilas31 Contributeur
        Désolé, je ne comprends pas, chez moi ça marche parfaitement.
        Lorsqu'on active la feuille, cela tri sur la colonne R puis si les valeurs sont identiques dans la colonne R cela utilise E comme tri secondaire.

        C'était bien le but recherché ?
        0
      2. francis
        Oui le code marche parfaitement je m'étais trompé de colonne.

        Merci beaucoup !
        0
      3. pilas31 Contributeur
        De rien,

        Bonne continuation,

        Je passe en résolu.
        0