Comptage avec condition

Version imprimable

26/06/2012, 17h30
maymou27

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
26/06/2012, 17h51
Philippe Tulliez

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"

Code:

=NB.SI($A$2:$A$99;"F")

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:

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.

26/06/2012, 18h32
Philippe Tulliez

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:

=EQUIV("F";$A$2:$A$25;0) - (EQUIV("D";$A$2:$A$25) + 1)
26/06/2012, 19h23
maymou27

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

Avec VBA

Code:

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.

26/06/2012, 21h18
Philippe Tulliez

Bonsoir,
Avec des formules d'Excel

Code:

=LIGNE($A$1:$A$34) + EQUIV("F";$A$1:$A$34;0) - LIGNE($A$1:$A$34)

Ce code permet en plus de déplacer la plage A1:A34