Se connecter avec
S'enregistrer | Connectez-vous

Compter éléments TCD avec condition

Dernière réponse : dans Programmation

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 :
  1. 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 !

Autres pages sur : compter elements tcd condition

Lassé par la pub ? Créez un compte

Meilleure solution

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

  1. Dim compteur As Long
    

  2. compteur = 0
    

  3. For Each pitem In ActiveWorkbook.ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("champ1").PivotItems
    

  4.   If pitem.Value Like "a*" Then
    

  5.     compteur = compteur + 1
    

  6.   End If
    

  7. Next pitem
    

  8. MsgBox("Il y a " & compteur & " éléments.")
Expert Programmation

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 ;) 
Lassé par la pub ? Créez un compte

Créer un nouveau sujet