Filter et count

Bonjour

Pour connaître le nombre de lignes affichées lors d'un filtre automatique, utilise la fonction SOUS.TOTAL(3;...:...), elle retourne le nombre de valeurs alphanumériques dans la plage A:A. Tu dois retirer le nombre de données qui se trouvent avant la zone filtrée par NBVAL()

Exemple, la zone des données est en dessous de la ligne 3, la colonne A:A n'est jamais vide. Les trois première lignes peuvent contenir des données. Ce qui donne comme formule
=SOUS.TOTAL(3;A:A)-NBVLA(A1:A3)

@+Jean-Marie

Merci Jean-Marie


En vb, j'aitrouvé


Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range

MsgBox "Trouvé " & rng.Columns(1).SpecialCells(xlVisible).Count - 1 & " sur " & rng.Rows.Count - 1 & " lignes"

End Sub


Mais j'aurai aimé trouver ce résultat directement dans une propriété


A+

Zeboue