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 :

Comptage avec condition


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Profil pro
    Inscrit en
    Juin 2012
    Messages
    29
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2012
    Messages : 29
    Par défaut Comptage avec condition
    Bonsoir
    J'ai dans mon fichier Excel une colonne A qui admet deux cellule remplie, une par "D" et l'autre par "F" , les autre cellules sont tous vide!

    je veux identifier le nombre de ligne ou se trouve la cellule qui admet la valeur "F", plus précisement je veux créer un compteur qui va parcourir la colonne A jusqu'a la cellule de valeur "F" après il va compter le nombre des cellules parcourus!!

    Merci

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Sauf si j'ai mal compris ta demande la fonction NB.SI peut répondre à ta demande
    Par exemple : La formule ci-dessous renverra le nombre de cellules dans la plage A2:A99 qui contiennent "F"
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2011
    Messages
    1 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2011
    Messages : 1 858
    Par défaut
    Bonjour,

    Je n’ai pas interprété ta demande comme corona,
    En fait, je ne suis même pas persuadé d’avoir compris ce que tu cherches à faire.
    Mais comme il n’est pas utile de comprendre le problème pour trouver une mauvaise solution, je me lance quand même.
    Voici un exemple que tu pourras adapter.
    J’ai placé dans la colonne A deux cellules qui permettent de repérer le départ du comptage (valeur de la cellule : "D") et la fin du comptage (valeur de la cellule : "F"), les autres cellules étant toutes vides.
    La procédure effectue le cumul du nombre de lignes entre ces 2 bornes.
    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
    Sub Comptage()
    Dim DerLig As Long, Cumul As Long
    Dim MaPlage As Range, Cel As Range
    Dim Compte As Boolean
        With Worksheets("Feuil1")
            DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
            Set MaPlage = .Range("A1:A" & DerLig)
            For Each Cel In MaPlage
                Select Case Cel
                Case "D"
                    Compte = True
                Case "F"
                    Compte = False
                Case Else
                    If Compte = True Then Cumul = Cumul + 1
                End Select
            Next Cel
        End With
        MsgBox "Nombre de lignes : " & Cumul
    End Sub
    Cordialement.

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    A la relecture de ton énoncé, je pense que gFZT82 doit avoir mieux compris.
    Voici donc avec une formule excel, le nombre de cellules comprises entre la cellule contenant D et la cellule contenant F dans la plage A2:A25. Il est entendu que D doit se trouver avant F.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =EQUIV("F";$A$2:$A$25;0) - (EQUIV("D";$A$2:$A$25) + 1)
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  5. #5
    Membre actif
    Profil pro
    Inscrit en
    Juin 2012
    Messages
    29
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2012
    Messages : 29
    Par défaut
    En faite dans ma colonne A je veux créer un compteur qui commence par A1 et il s’arrête quand il trouve la cellule de valeur "F", après il doit compter le nombre des ligne parcouru jusqu’a cet cellule!
    Merci

  6. #6
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2011
    Messages
    1 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2011
    Messages : 1 858
    Par défaut
    Avec VBA
    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
    Sub Comptage()
    Dim DerLig As Long, Cumul As Long
    Dim MaPlage As Range, Cel As Range
    Dim Compte As Boolean
        Compte = True
        With Worksheets("Feuil1")
            DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
            Set MaPlage = .Range("A1:A" & DerLig)
            For Each Cel In MaPlage
                Select Case Cel
                Case "F"
                    Compte = False
                Case Else
                    If Compte = True Then Cumul = Cumul + 1
                End Select
            Next Cel
        End With
        MsgBox "Nombre de lignes : " & Cumul
    End Sub
    Avec Excel, c'est beaucoup plus simple

    Cordialement.

Discussions similaires

  1. comptage de ligne avec condition
    Par miopie dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 12/10/2010, 14h43
  2. [XL-2002] Comptage avec fréquence et conditions (problème épineux)
    Par V i n c e n t dans le forum Excel
    Réponses: 2
    Dernier message: 12/10/2009, 18h26
  3. comptages avec 2 conditions sous excel
    Par cpe81 dans le forum Excel
    Réponses: 8
    Dernier message: 11/12/2008, 13h45
  4. Comptage avec conditions
    Par r.bartom dans le forum XSL/XSLT/XPATH
    Réponses: 1
    Dernier message: 05/10/2007, 16h31
  5. [HyperFile] requete de selection avec condition de comptage
    Par pierre.zelb dans le forum HyperFileSQL
    Réponses: 1
    Dernier message: 16/02/2006, 10h20

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