VBA positionner un pivot item d'un TCD a la fin

[miguelangelo]

Bonjour à tous,

mon souci est le suivant,

je veux positionner un pivot item de mon TCD après tous les autres.
seulement voilà, mes données changent (heureusement) et mon tcd aujourd'hui se présente avec 13 item.

ActiveSheet.PivotTables("TCD").PivotFields("PREFERRED BU").PivotItems( _
"Other BU").Position = 13

si demain j'ai 15 pivot item, il ne sera plus à la fin.

j'aimerai lui stipuler : "a la fin"

merci pour votre aide

 

[Yohan]

Re : VBA positionner un pivot item d'un TCD a la fin

salut

n'est-il pas possible de faire un truc comme

dim num as long
Range("A60000").select
Selection.End(xlUp).Select
num=activecell.rows


et après

ActiveSheet.PivotTables("TCD").PivotFields("PREFER RED BU").PivotItems( _
"Other BU").Position = num

en gros tu as rentrer ta position dans num

 

[miguelangelo]

Re : VBA positionner un pivot item d'un TCD a la fin

je teste..
merci de l'idée !!!

 

[chris]

Re : VBA positionner un pivot item d'un TCD a la fin

Bonjour

    With ActiveSheet.PivotTables("TCD").PivotFields("PREFER RED BU")
        x = .PivotItems.Count
        .PivotItems("Other BU").Position = x
    End With

 

[miguelangelo]

Re : VBA positionner un pivot item d'un TCD a la fin

merci chris..
exactement ce qu'il me fallait