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

[libellule85]

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 ?

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.

 

[eriiic]

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

Bonjour,

Tu peux utiliser un bouton à bascule et :

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

 

[libellule85]

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

Bonjour Eriiiic,

Je te remercie pour ta réponse.

Bonne journée