pareto evolutif sur un TCD

[tony]

je souhaite à l'aide d'une macro, trier dans la colonne total d'un tableau croisé dynamique pour en faire un pareto qui évolue au fil des mois (a savoir qu'il y a des colonnes qui s'ajoute

Sub Macro1()
    Range('A3').Select
    Selection.End(xlToRight).Select
    Selection.Sort Key1:='R3C4', Order1:=xlDescending, Type:=xlSortValues, _
        OrderCustom:=1, Orientation:=xlTopToBottom
End Sub

mon pb est que le tri se réfère toujours à la même cellule
merci de votre aide
j'ai joint un fichier

tony [file name=pareto.zip size=2981]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pareto.zip[/file]

 

[Dan]

Bonjour,

A quel moment souhaites-tu effectuer ce tri ?

A la demande ou de manière automatique lors de la consultation ?

 

[tony]

à la demande
car en fait je récupère les données dans un autre fichier pour alimenter un graphique
j ai donc besoin de faire le tri puis exporter ces données

 

[Dan]

Re,

Revoici ton fichier avec une petite macro qui fera ce que tu souhaites.
Pour l'exécuter, appuie sur les touches 'CTRL + t' de ton clavier.

Le tri est effectué en ordre décroissant.

Bonne lecture

[file name=pareto2.zip size=8534]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pareto2.zip[/file]

 

[tony]

merci de ton aide

:woohoo: