Macro VBA pour tri successif de lignes

Version imprimable

21/07/2009, 13h25
thierryakaguy

Macro VBA pour tri successif de lignes

resolu voir

http://www.developpez.net/forums/d78...w-medium-high/

Bonjour,

j'aimerais trier des lignes selon un premier critere puis un deuxieme (l'ordre à de l'importance)

A 1
B 5
A 3
B 2

devient

A 1
A 3
B 2
B 5

merci d'avance
21/07/2009, 14h19
DeaD78

Bonjour,

Cette fonctionnalité est disponible dans Excel "normal". Pas besoin de VBA. Et si jamais tu veux le faire par VBA, l'enregistreur de macros est ton ami !

Pour info, tu sélectionnes tes 2 colonnes et tu fais Données/Trier. Tu choisis donc Trier par Colonne A puis par Colonne B par exemple.

Bonne chance.
21/07/2009, 14h28
thierryakaguy

oui mais j'ai besoin de le faire dans ma macro pour tout automatiser !

je sais qu'on peut le faire sur excel normal...
21/07/2009, 14h35
DeaD78

Citation:

Et si jamais tu veux le faire par VBA, l'enregistreur de macros est ton ami !

Que veux-tu que je te dise de plus ? Outils/Macro/Nouvelle macro peut-être...

EDIT : le tri perso, pourquoi pas ! Mais un tri classique est bien suffisant et plus simple pour ce qu'il y a à faire je trouve :roll:
21/07/2009, 15h54
thierryakaguy

ouskel tu avais mis quoi avec des couleurs ?

j'aimerais faire un tri avec des low medium et high donc ça m'interesse

Utilise le tri personnalisé -> Outils -> Options -> Tri perso.
Là tu crées tes deux listes
Ensuite tu indiques le N° de tri dans ton code
Et comme un petit croquis vaut mieux qu'un long discours...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Test() Dim Tablo As Variant 'on crée l'ordre de tri personnalisé Application.AddCustomList ListArray:=Array("jaune", "vert", "bleu", "violet", _ "rouge", "orange") 'pour le test je renseigne les cellules A1:A6 ************** Tablo = Array("orange", "rouge", "violet", "bleu", "vert", "jaune") Range("A1:A6") = Application.Transpose(Tablo) '*********** 'On classe les données du tableau selon la liste personnalisée Range("A1:A6").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=6 End Sub
où (OrderCustom:=)6 correspond au N° de la liste perso
Bon après-midi

Edit
Voilà ce que j'avais mis mais ça ne répond pas à ta question telle que tu la formules