Etendre une pivot table suivant une sélection
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 "l'ouverture" se fasse simultanément sur les différentes pivot et ainsi ne pas devoir répéter la manoeuvre. J'ai tenté un record, cela marche mais seulement pour "Iberia" et je n'arrive pas à insérer la sélection (.Select & Selection. ...) active dans le code.
Le code recordé manuellement utilise DrilledDown mais je me demande si "showdetails" pourrait marcher dans ce cas ci. Le voici :
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
Bonjour,
comment veux-tu que l'on devine ton fichier ???
tu devrais envoyer un fichier d'exemple court mais avec la même structure que ton original ...
Ca peut aider à t'aider