Tcd -

[wizard0147]

TCD - Développer ensemble des catégories via Macro

Bonjour à tous,

je viens de créer un tableau croisée dynamique. Je souhaite créer une macro qui "développe" tous les champs contenus dans la colonne B du tableau. J'ai donc ceci:

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Market Segment")
.PivotItems("AAA").Visible = True
.PivotItems("BBB").Visible = True
.......
End With

où AAA, BBB etc représente les noms à développer.

Seulement, au lieu de devoir taper les noms un par un, j'aimerais ne pouvoir faire qu'une ligne qui développe tout en même temps. Un truc du genre:

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Market Segment")
.PivotItems("[All]").Visible = True
End With

J'epère être suffisamment clair.
Merci d'avance

 

[Dan]

Re : Tcd -

Bonsoir,

Essaie comme ceci :

Sub test()
'Dan 02/07/09
Dim Pivots As Byte
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("Tableau croisé dynamique1")
For Pivots = 1 To .PivotFields("Market Segment").PivotItems.Count
.PivotFields("Market Segment").PivotItems(Pivots).Visible = True
Next Pivots
End With
End Sub

Amicalement

Dan

 

[wizard0147]

Re : Tcd -

Merci Dan

Malheureusement excel me donne une erreur sur la ligne

.PivotFields("Market Segment").PivotItems(Pivots).Visible = True

 

[wizard0147]

Re : Tcd -

Personne ? 🙁

 

[Dan]

Re : Tcd -

re,

Si mais j'aimerais mieux avoir ton fichier même simplifié ce serait plus facile de t'apporter la solution.

est-ce possible ?

Dan