PivotItems cochés dans un TCD

BOUCHEZ JD · 24 Août 2009

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 · 24 Août 2009

Re : PivotItems cochés dans un TCD

Bonjour Bouchez

essaye peut être ainsi :

Code:

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 · 24 Août 2009

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

PivotItems cochés dans un TCD

BOUCHEZ JD

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

BOUCHEZ JD

XLDnaute Junior

Discussions similaires