Résolu Compter éléments TCD avec condition

[mrgerm75]

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 :
[cpp]nombre_elements = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("champ1").PivotItems.Count[/cpp]
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 !

 

[mrgerm75]

C'est bon ! C'est réglé grâce à :

[cpp]Dim compteur As Long
compteur = 0
For Each pitem In ActiveWorkbook.ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("champ1").PivotItems
If pitem.Value Like "a*" Then
compteur = compteur + 1
End If
Next pitem
MsgBox("Il y a " & compteur & " éléments.")
[/cpp]

 

[zeb]

Salut,

.... trop tard ....

J'allais te proposer de t'attaquer à la liste de départ. Mais c'est aussi bien comme ça.


(Retire le pitem de derrière le Next. On n'est plus en 1985 C'est l'indentation que tu respectes par ailleurs qui permet de relire le code. Déclare ta variable pitem)

--------------------

Tu mérites le ruban de la meilleure réponse

 

[zeb]

Meilleure réponse sélectionnée par zeb.