IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Compter éléments TCD avec condition


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    Inscrit en
    Juin 2011
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2011
    Messages : 7
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 !

  2. #2
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonjour.

    Tu peux faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

Discussions similaires

  1. Compter le nombre d'entrée avec condition
    Par Seta-san dans le forum Langage
    Réponses: 5
    Dernier message: 17/02/2009, 12h20
  2. Réponses: 1
    Dernier message: 22/12/2008, 10h15
  3. Réponses: 7
    Dernier message: 28/05/2008, 10h48
  4. Compter avec condition dans une requête
    Par CHINAILLON dans le forum Requêtes et SQL.
    Réponses: 10
    Dernier message: 10/04/2008, 14h50
  5. [XSLT] Compter avec conditions
    Par r.bartom dans le forum XSL/XSLT/XPATH
    Réponses: 2
    Dernier message: 02/10/2007, 17h06

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo