Filter et count

[zeboue]

Bonjour le forum,


Quand on effectue un filtre sur une feuille, on voit apparaître le nombre de lignes trouvées en bas à gauche.

Dans quelle propriété de quel objet peut on récupérer cette valeur ?

Je deviens bigleux à force de parcourir la fenêtre des variables locales.

Un grand bravo et merci d'avance à tous

Zeboue

 

[Jean-Marie]

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

 

[zeboue]

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