désespoir ... VBA - Trier des données de la zone de valeur d'un PT, descendant...

[crx4me]

Alllo,

fait 8h que je viens de perdre a chercher comment trier un PT par "valeurs" descendante...

je me rend a l'évidence.. jai besoin d'aide ..

quelqu'un as une suggestion? dans les section "pareto second et retour" ci bas

Dim pt As PivotTable

Sheets("RAPPORT SECOND").Select

For Each pt In ActiveSheet.PivotTables

pt.RefreshTable
pt.PivotFields("PRODUIT").AutoSort Order:=xlAscending, _
Field:="PRODUIT"

Next pt

Sheets("RAPPORT RETOUR").Select

For Each pt In ActiveSheet.PivotTables

pt.RefreshTable
pt.PivotFields("PRODUIT").AutoSort Order:=xlAscending, _
Field:="PRODUIT"

Next pt

Sheets("PARETO SECOND").Select

For Each pt In ActiveSheet.PivotTables

pt.RefreshTable
pt.PivotFields("Somme de $ SECOND").AutoSort xlDescending, "Somme de $ SECOND"

Next pt

Sheets("PARETO RETOUR").Select

For Each pt In ActiveSheet.PivotTables

pt.RefreshTable
pt.PivotFields("Somme de $ SECOND").AutoSort xlDescending, "Somme de $ SECOND"

Next pt

 

[crx4me]

Re : désespoir ... VBA - Trier des données de la zone de valeur d'un PT, descendant..

j'ai aussi essayé ..

pt.PivotFields("Somme de $ SECOND").AutoSort Order:=xlDescending, _
Feild:="Somme de $ SECOND"

mais ça ne fonctionne pas plus..