Excel macro 2 tri

Résolu
francis -  
pilas31 Messages postés 1878 Statut Contributeur -
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 Messages postés 1878 Statut Contributeur 648
     
    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
  3. 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 Messages postés 1878 Statut Contributeur 648
       
      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 Messages postés 1878 Statut Contributeur 648
       
      De rien,

      Bonne continuation,

      Je passe en résolu.
      0