Macro pour compter les lignes d'un filtre

[ping29]

Bonjour,

Je n'arrive à récupérer le nombre de lignes affiché dans ma feuille après avoir réalisé un filtrage.
Ma 1ère ligne comprend les colonnes de filtre
J'ai ensuite 300 lignes
Je filtre sur la colonne 3
Ma page n'affiche plus que 10 lignes.
Comment récupérer ce nombre pour le noter dans une autre feuille ?

Merci de votre aide.

 

[Pierrot93]

Re : Macro pour compter les lignes d'un filtre

Bonjour,

regarde ceci, le -1 pour ne pas compter la ligne de titre :

=SOUS.TOTAL(103;Feuil1!A:A)-1

nom feuille et colonne A à adapter...

bon après midi
@+

 

[ping29]

Re : Macro pour compter les lignes d'un filtre

C'est sous la forme d'une macro vb que j'ai besoin... 🙁

 

[Pierrot93]

Re : Macro pour compter les lignes d'un filtre

Re,

Dim p As Range
Set p = Range("_FilterDatabase")
If WorksheetFunction.Subtotal(3, p.Offset(1).Resize(p.Rows.Count - 1, 1)) > 0 Then
    Sheets("Feuil2").Range("L1").Value = WorksheetFunction.Subtotal(103, p.Offset(1).Resize(p.Rows.Count - 1, 1))
End If