Expand ma sélection dans une pivot table
Bonjour à tous,
J'ai parcouru plusieurs pages internet mais ne trouve pas ce que je cherche.
Pour un projet, j'aimerais pouvoir étendre (ou même "collapse" si c'est déjà étendu (bonus)) ma sélection dans une pivot.
Par exemple, si ma souris se trouve sur la région "iberia" j'activerais un bouton qui agrandirait la région Iberia par rapport aux pays qui en sont membres.
J'ai en fait plusieurs Pivot identiques dans la structure mais différentes dans leurs valeurs et ce serait bien que ça soit fait génériquement. Quand je fais un record, cela marche mais seulement pour "Iberia" et je n'arrive pas à insérer la sélection active dans le code.
Le code recordé manuellement utilise drilledown mais je me demande si "showdetails" pourrait marcher dans ce cas ci. Le voic
Code:
1
2
3
4
5
6
7
8
| Sub Macro3()
Range("C13").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields( _
"[Sales Organisation].[Sales Organisation Hierarchy].[Sales Region]"). _
PivotItems( _
"[Sales Organisation].[Sales Organisation Hierarchy].[Sales Region].&[Iberia]"). _
DrilledDown = True
End Sub |
J'aimerais changer la police en rouge et intégret la sélection active.
Quelqu'un pourrait m'aider?
D'avance, un grand merci
