Macro pour Réduire champs dans un TCD

Bonjour au forum,

Je sollicite votre aide pour avoir un code macro pour Réduire un champs dans un TCD sur plusieurs feuilles.

J'ai ce code appliquable pour un TCD dans une feuille, mais je voudrai le faire sur chaque TCD dans chaque feuille.

ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date") _
    .ShowDetail = False

Merci de votre aide.

Bonjour

Avec les TCD et surtout code, c'est toujours préférable d'avoir le fichier

Essai ceci en supposant 1 seul TCD par feuille

Sub test()
'Macro Dan
Dim i As Byte
For i = 1 To Sheets.Count
    With Sheets(i)
        If .PivotTables.Count >= 1 Then
            .PivotTables(.PivotTables(.PivotTables.Count).Name).PivotFields("Date").ShowDetail = False
        End If
    End With
Next
End Sub

Si ta demande est solutionné veille à clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil

A te relire

Crdlt

Bonjour,

Bonjour Dan,

Une alternative à tester.

Cdlt

Option Explicit
Public Sub test()
Dim ws As Worksheet
Dim pt As PivotTable
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
            pt.PivotFields("Date").ShowDetail = True
        Next pt
    Next ws
End Sub