PivotItems cochés dans un TCD

[BOUCHEZ JD]

Bonjour au forum


Dans un TCD, cette syntaxe donne le NOMBRE d'élements total des PivotItems.

MsgBox ActiveSheet.PivotTables("MonTCD").PivotFields("Années").PivotItems.Count


Quelqu'un sait il comment on trouve le nombre d'éléments cochés.


Merci et bonne journée

 

[Pierrot93]

Re : PivotItems cochés dans un TCD

Bonjour Bouchez

essaye peut être ainsi :

Dim p As PivotItem, i As Integer
For Each p In ActiveSheet.PivotTables("MonTCD").PivotFields("Années").PivotItems
    If p.Visible Then i = i + 1
Next p
MsgBox i

bonne fin d'après midi
@+

 

[BOUCHEZ JD]

Re : PivotItems cochés dans un TCD

Bonjour PIERROT93

J'en étais aussi à ce point; on ne peut pas compter directement, il faut passer par une boucle : ci dessous mon code; le tien est plus propre.

nbPI = 1
For x = 1 To ActiveSheet.PivotTables("TCD1A").PivotFields("Année").PivotItems.Count
If ActiveSheet.PivotTables("TCD1").PivotFields("Année").PivotItems(x).Visible = True then nbPI = nbPI + 1
Next x

Merci et bonne semaine