Re : Formule imbriquée, macro suite et... fin
Bonsoir l'ami,
J'ai bien changé la macro selon tes indications et, ce fut la catastrophe...
Avec la formule ci-dessous, cela fonctionne plus ou moins sauf pour le tri de la colonne 7 (G) classe d'âge (Formule de base J E S V) et la reprise des données d'origine (avant tri et impression).
La macro :
Range(maplage(l, 8), maplage(l, 12)).Sort Key1:=maplage(l, 8), Order1:=xlDescending, Orientation:=xlLeftToRight
Next l
maplage.Sort maplage(1, 13), xlDescending, maplage(1, 11), , xlDescending, maplage(1, 12), xlDescending, xlNo, , , xlSortColumns
t = maplage
maplage.Sort maplage(1, 14), xlDescending, maplage(1, 11), , xlDescending, maplage(1, 7), xlAscending, xlNo, , , xlSortColumns
maplage = t
With ActiveSheet
.PageSetup.PrintArea = Range("Q135:AE" & 142 + maplage.Rows.Count - 1).Address
Je ne trouve pas où est le problème ! Est-ce qu'il faudrait que la macro trie en deux temps avant l'impression ? Possible...
@+
Guy