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 : Sélectionner tout - Visualiser dans une fenêtre à part
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