TCD - VBA - PivotItems.count après firltrage

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

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:

---

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

---

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...:lol: