Compter cellules apres un filtre Excel

Re
Ah ben non, il y'en a 11 :
1 MOYENNE
2 NB
3 NBVAL
4 MAX
5 MIN
6 PRODUIT
7 ECARTYPE
8 ECARTYPEP
9 SOMME
10 VAR
11 VAR.P

A+

Une solution consiste à créer une colonne qui te dit si la ligne est masquée ou pas :

Une colonne avec comme formule =SOUS.TOTAL(3;D3), avec D3 une cellule toujours remplie (par exemple le numéro/compteur de ligne)

Et après la fonction NB.SI.ENS, filtre sur cette colonne et sur la colonne avec ton critère à compter.

Ainsi, quand tu vas appliquer les filtres, les sous.total vont être masqués et afficher '0', et ne compter que tes critères sur les lignes visibles.

Bonjour,

tu peux te faire une fonction personnalisée (dans un module, pas de le code de la feuille) qui te retourne 1 si la ligne de la cellule est visible ou 0 si elle est cachée.

Function visible(cellule As Range) As Integer
    visible = (Not cellule.EntireRow.Hidden) * -1
End Function

- Oter tous les filtres.
- Ajouter en C2: =visible(C2) que tu recopies vers le bas (cette colonne pourra être masquée si besoin)

- Avec les "médecin" en colonne B
=SOMMEPROD((B2:B10="médecin")*C2:C10) te retourne le nombre de "médecin" visibles.

Appliquer les filtres et tester

eric

j'ai eu le même problème et la proposition avec =SOUS.TOTAL marche du tonnerre

il faut choisir no_fonction=3, qui correspond à NBVAL

donc si toute ma colonne est sélectionnée, j'obtiens bien 618 éléments
si je ne sélectionne que 'médecin', j'obtiens 213 éléments
ainsi de suite

=SOUS.TOTAL(3;A2:A619)

Salut, Igabriel.
Et tout simplement, sans faire de macro, si tu appliquais la fonction SOMMEPROD évoquée par eriiic aux colonnes "Date" et "Appellation" ? C'est rapide et fiable, et ça répond exactement à ta demande.

Bonjour,

Si tu fais ton filtre par macro compte directement dans la macro sans faire de fonction alors... non ?

Bonjour Gabriel,
Je voudrais savoir si tu a trouvé une solution a ton probleme parce que jai le mm problem?
Merci

créer une colonne avec la formule si =SI(A1="médecin";1;0)
(A1 étant la cellule de la colonne censée éventuellement recevoir le mot médecin)
puis créer un sous total au dessus de l'étiquette de la colonne qui contient cette formule
le sous total sera donc égal au nombre de cellules comportants le mot médecin

Salut,

Pour ton pb il faut que tu passes par VBA /

SUB MacroNbMedecin ()

dim nbligneas long
dim colonne as long
dim nbMedecin as long
dim nbcolonne as long
dim rg as range

colonne = Tu mets le numéro de ta colonne que tu veux filtrer

'Cherche la première ligne non vide
lignedebut= cells(1,colonne).end(xldown).row

'Compte le nb de ligne et de colonne de la plage
nbligne= cells(rows.count,colonne).end(xlup).row
nbcolonne = cells(lignedebut,columns.count).end(xltoleft).column

'récupère la plage
Set rg = Cells(lignedebut, 1).Resize(nbligne, nbcolonne)

'On filtre
rg(1, 1).Offset(-1, 0).AutoFilter Field:=colonne, Criteria1:="=MEDECIN"

'Vérifie que ca existe
On Error Resume Next
If IsError(rg.SpecialCells(xlCellTypeVisible)) Then
On Error GoTo finProcRecupGP3Bis:
MsgBox "Aucune données comporte le mot MEDECIN", vbInformation, "Données"
End '==> on sort de la fonction
End If

'pour compter tu fais
nbMedecin = rg.SpecialCells(xlCellTypeVisible).Count / nbcolonne

cells(1,1) = nbMedecin '==> colle le nb de medecin dans la cellule A1

end SUB