Macro tri Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
steven-1947
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 7 septembre 2016
Version d'Excel : 2007

Message par steven-1947 » 15 novembre 2016, 10:38

Bonjour le forum,

J'ai une nouvelle fois besoin de votre aide. Dans mon classeur excel, j'ai un bouton me permettant de trier mon tableau, avec le code suivant :
Sub Tri_Article()

Dim plage As Range
Set plage = ActiveSheet.Range("a3:AE" & Range("B" & Rows.Count).End(xlUp).Row)
plage.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, Orientation:=xlTopToBottom 'tri
End Sub
C'est un code que j'ai trouvé sur ce forum (il me semble) que j'ai volé (hihi) et adapté en fonction de mon cas.

Cette macro me permet de trier mes lignes par ordre croissant, en fonction de ma colonne B.

Est-il possible, de modifier celle-ci afin de trier mon tableau, par la colonne B, puis la colonne D, la colonne G et la colonne H.

Comme je le ferai de manière classique en passant par Données>Trier>Ajouter un niveau

J'ai fait un test avec l'enregistreur de macro, ça me donne un truc comme Sort.SortFields.Add Key:=Range("H3:H300"), mais je ne sais pas comment l'intégrer à mon code initial. De plus l'enregistreur ne me permet que de trier une plage de cellule selectionéé au départ, mais comme j'ajoute régulièrement des lignes dans le tableau c'est pas pratique lol

Merci à vous,

Steven
Avatar du membre
bouben
Membre impliqué
Membre impliqué
Messages : 1'494
Appréciations reçues : 2
Inscrit le : 25 août 2014
Version d'Excel : 2010

Message par bouben » 15 novembre 2016, 12:33

Bonjour,

Ci-joint une proposition à tester et à adapter.

Bonne journée

Bouben
MacroTri.xlsm
(23.67 Kio) Téléchargé 15 fois
s
steven-1947
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 7 septembre 2016
Version d'Excel : 2007

Message par steven-1947 » 16 novembre 2016, 15:35

ça marche impeccable, merci beaucoup Bouben :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message