Bonjour à tous,
 
Dans un TCD ayant 2 filtres (PageFields), j’aimerais compter le nombre d’Items restant après filtrage.
Voir l’image ci-dessous pour plus de clarté.

Mon code VBA se présente comme ceci :
a) pour filtrer : ActiveSheet.PivotTables("myTCD" ).PivotFields("Genre" ).CurrentPage = "HOMME"  
b) pour filtrer : ActiveSheet.PivotTables("myTCD" ).PivotFields("Age" ).CurrentPage = "30"
c) pour compter : nbr_lignes = ActiveSheet.PivotTables("myTCD" ).PivotFields("Genre" ).PivotItems.Count
 
Mon problème est que, quelle que soit ma sélection (Homme/femme, 30/35…), le compte (PivotItems.Count) reste le même après filtrage. Je me rends compte maintenant que « PivotItems.Count » compte en fait le nombre d’Items contenus dans le « PivotFields », ici en l’occurrence « Genre » me donne 2 (Homme/Femme).
J’ai bien essayé les propriétés « VisibleFields » et « VisibleItems », mais rien ne marche…
Pour l’instant j’utilise cette méthode :
nbr_lignes = Cells(Cells.Rows.Count, "A" ).End(xlUp).Row, mais je préférerais une méthode plus orientee TCD (style PivotItems.Count)
 
Quelqu’un aurait-il une idée afin d’obtenir le nombre réel de lignes obtenues après le filtrage ?
 
En vous remerciant d’avance
Nicodemus

Apparemment y a pas d'experts pour répondre à cette question !
 
 

J'avoue que excel ...