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

miguelangelo · 11 Septembre 2013

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 · 11 Septembre 2013

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 · 11 Septembre 2013

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

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

chris · 11 Septembre 2013

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

Bonjour

Code:

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

miguelangelo · 12 Septembre 2013

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

merci chris..
exactement ce qu'il me fallait

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

miguelangelo

XLDnaute Occasionnel

Yohan

XLDnaute Occasionnel

miguelangelo

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

miguelangelo

XLDnaute Occasionnel

Discussions similaires