Réduire et Déployer les champs d'un TCD dans un même bouton...

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

libellule85

XLDnaute Accro
Bonsoir le forum,

J'aimerais faire avec un même bouton (ou forme) Réduire et Déployer les champs dans un TCD. Avec l'enregistreur de macro j'ai les deux actions séparées (ci-dessous) : comment faire pour les réunir ?

Code:
Sub Macro1()
    Range("A6").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "Libellé de l'écriture").ShowDetail = False
End Sub


Sub Macro2()
    Range("A6").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "Libellé de l'écriture").ShowDetail = True
End Sub

D'avance merci pour votre aide.
 
Dernière édition:
Re : Réduire et Déployer les champs d'un TCD dans un même bouton...

Bonjour,

Tu peux utiliser un bouton à bascule et :
Code:
Private Sub ToggleButton1_Click()
    If ToggleButton1 Then
        ' code pour replier
        ' ...
        ToggleButton1.Caption = "Déplier"
    Else
        ' code pour déplier
        ' ...
        ToggleButton1.Caption = "Replier"
    End If
End Sub
eric
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour