Ajout d'un bouton développer / réduire tout pour TCD

Bonjour à tous,

J'ai un tableau croisé dynamique avec deux champs dans "Etiquettes de lignes" : niveau1 et niveau2.

Je cherche à mettre un bouton "Développer/réduire" qui permet de développer (ou réduire) tout le niveau 2 sans avoir à cliquer sur chacun des petits "+" ou "-". Je connais l'existence de cette fonctionnalité, mais je voudrais mettre un bouton juste au dessus de mon tableau croisé dynamique qui ferait cela. Mon problème est que les personnes à qui je vais envoyer ce fichier ne pourront pas l'ouvrir s'il y a des macros dedans (question de sécurité), je dois donc me débrouiller pour ajouter ce bouton sans enregistrer au format "xlsm".

Pouvez-vous m'aider svp ?

Merci !

Bonjour,

A tester.

Cdlt.

Public Sub DEMO()
Dim pf As PivotField
    Set pf = ActiveSheet.PivotTables(1).PivotFields("niveau1")
    If pf.PivotItems(1).ShowDetail Then pf.ShowDetail = False Else pf.ShowDetail = True
    Set pf = Nothing
End Sub

Bonjour Jean-Eric et merci pour votre réponse. Toutefois je recherche une solution sans macro car celles-ci risquent d'être bloquées pour les destinataires du fichier.

Re,

Nouvelle proposition à méditer.

Cdlt.