unable to set visible property of a pivot item class

[sarrsouraa]

bonjour tout le monde dans une pivot table j'essaie de mettre tot les items visible a false avec cette methode

Sub clear()
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem

Set pt = Sheets("Data").PivotTables("PUTSEC1")
Set pf = pt.PivotFields("Section")
For Each pi In pf.PivotItems
pi.Visible = False
Next

End Sub

mais il m affiche l erreur unable to set visible property of the pivot item class
merciiiiiiiiiiiiii de m aider

 

[sarrsouraa]

Re : unable to set visible property of a pivot item class

quelqu un a une idee svvvvvvvvvvp

 

[sethtrop4]

Re : unable to set visible property of a pivot item class

Bonjour

C'est un bug repertorié de Excel
Is an Excel bug that set PivotItem.Visible to true will generate 1004 Macro Error?

d'après ce lien, je n'ai pas l'impression qu'une solution ait été trouvée