Compter éléments TCD avec condition

Bonjour,

Je dispose d'un tableau croisé dynamique. Je souhaite compter, grâce au langage VBA, le nombre d'éléments pour un champ.
Voici ce que je fais :

Code:

---

nombre_elements = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("champ1").PivotItems.Count

---

ce qui marche très bien :)

Maintenant, je souhaite avoir le nombre d'éléments commençant par "A". Comment faire ? J'avais pensé à utiliser Like "A*" mais je ne vois pas comment faire...

Pouvez-vous m'aider ? Merci !

Bonjour.

Tu peux faire

Code:

---

1 2 3 4 5 6

Dim oPvtIt as Excel PivotItem   nombre_elements = 0 For each oPvtIt in ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("champ1").PivotItems if oPvtIT.name like "A*" then nombre_elements = nombre_elements +1 Next opvtIt

---

COrdialement,

pGZ