Compter nombre de ligne visible à l'écran après filtre en VBA

Bonjour,

J'ai un fichier BDD_Finale qui est une base de données qui comporte plus de 4000 lignes, dans cet bdd j'ai des avions qui sont référencés par leur numéro et par avion entre 300 et 400 retouches qui sont associées à cet avion. Ce que je veux c'est filtrer pour afficher les retouches de cet avion et voir leur nombre. Donc sous VBA je filtre donc par numéro d'avion et je voudrais savoir le nombre de ligne affichés à l'écran pour cet avion qui correspond donc au nombre de retouches de l'avion. Pour le filtre pas de soucis mais c'est donc pour connaître le nombre de ligne que je bloque. Merci :)

Bonjour,

regarde du côté de la fonction "Sous.Total"

Merci pour ton message, j'ai utilisé cette fonction qui fonctionne très bien qui permet de compter le nombre de cellule visible du tableau.

Sub Test()
Dim t As ListObject
Dim n As Long
  Set t = Worksheets("Feuil1").ListObjects("MonTableau")
  n = t.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Count
End Sub