Discussion :

[aupaysbleu]

Bonjour à tous,

Je fais du VBA à partir d'un TCD afin de générer des courbes et des calculs, les outils design de PivotChart ne le permettant pas.
Lorsque j'utilise la propriété .PivotFields("xx").PivotItems("yy").count, j'obtiens le nombre total, exhaustif, des items
Comment n'obtenir que le nombre des items sélectionnés par un filtrage et par la même occasion leur name ?

Merci beaucoup d'avance

[mfoxy]

Bonjour,

À tester, mais je ne suis pas sur, à la volée sur mobile lol
Je pense que l'on peut utiliser l'attribut selected pour un segment, voir si nok du côté de .visible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim o_slicer_item As Object
Dim Count as Integer
Dim SegmentName as String
 
Count = 0
SegmentName = "Nomdusegment" ' à modifier
 
For Each o_slicer_item In ActiveWorkbook.SlicerCaches(SegmentName) .SlicerItems
    If o_slicer_item.Selected = True Then
        MsgBox o_slicer_item.Name
        Count=Count +1
   End if
Next o_slicer_Item
 
MsgBox "Nb d item sélect  " & Count

[aupaysbleu]

Bonjour mfoxy,

je ne connaissais pas cette couche. Je debug et vous dit.
Merci bcq pour votre réponse rapide
J'ai du grain à moudre comme ça, je ne savais plus comment attaquer le problème...