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 :

Compteur en colonne


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Inscrit en
    Janvier 2008
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Janvier 2008
    Messages : 8
    Par défaut Compteur en colonne
    Bonjour,

    En colonne A je rencontre trois chaînes de caractères possibles :

    "KO" , "OK" et "En cours"

    Comment puis-je créer dans trois cellules différentes trois compteurs :
    Un qui me compte nb de "OK" répertoriés en colonne A
    Un qui me compte le nb de "KO" en colonne A
    Un qui me compte le nb de "en cours" en colonne A

    Merci de votre aide, cdlt,

    Sylvain

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2008
    Messages
    66
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 66
    Par défaut Re
    Bonjour,

    Tout d'abord, tu comptes le nombre de lignes que tu as utilisé.
    Et ensuite, tu comptes le nombre de fois que tu repère un des trois termes.

    normalement, ça donne ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Dim n as integer,m as integer,p as integer, q as integer
     
    sheets ("Feuil1").Select
     
    n=0
    m=0
    p=0
    q=0
    while cells(n+ligne0,1)<>""         ''''''''''ligne0 est la ligne de départ'''''''''''
     
        n=n+1
     
        if cells(n+ligne0-1,1)="KO" then
            m=m+1
        elseif cells(n+ligne0-1,1)="OK" then
            p=p+1
        elseif cells(n+ligne0-1,1)="en cours" then
            q=q+1
        endif
     
    Wend
    avec ça, tu devrais pouvoir t'en sortir.

    Cordialement.

  3. #3
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Via une formule :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    A60=NB.SI(A1:A50, "en cours")
    Via du code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells(60, 1) = Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(50, 1)), "en cours")

  4. #4
    Membre régulier
    Inscrit en
    Janvier 2008
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Janvier 2008
    Messages : 8
    Par défaut
    Super merci !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Surlignage et compteur de colonnes
    Par eliepoinT dans le forum Excel
    Réponses: 2
    Dernier message: 18/03/2014, 09h19
  2. Réponses: 6
    Dernier message: 28/10/2010, 10h52
  3. Création d'une colonne compteur
    Par Marc_27 dans le forum DB2
    Réponses: 2
    Dernier message: 27/01/2010, 11h36
  4. Colonne compteur dynamique au sein d'une requête
    Par lacombefr dans le forum Développement
    Réponses: 6
    Dernier message: 16/04/2008, 13h41
  5. Une colonne compteur dans un GridView
    Par zooffy dans le forum ASP.NET
    Réponses: 1
    Dernier message: 21/01/2008, 15h14

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