Excel macro 2 tri

Résolu
francis -  
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 3
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   646
 
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
Réponse 2 / 3
francis
 
Merci beaucoup
0
Réponse 3 / 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
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   646
 
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
francis
 
Oui le code marche parfaitement je m'étais trompé de colonne.

Merci beaucoup !
0
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   646
 
De rien,

Bonne continuation,

Je passe en résolu.
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses