Comment savoir combien d'enregistrements ont été trouvé lors utilisation filtre

[nyco]

Bonjour à tous,
Je souhaite récupérer dans mon code le nombre d'enregistrement trouvé lors de l'utilisation de mon filtre
si vous pouviez m'aider ..
Merci par avance

 

[EricS]

bonjour

Range("a65536").Select
dernière_ligne = Selection.End(xlUp).Row

te permets de connaitre l adernière ligne d'un tableau

en partant de 1 à cette ligne tu peux compter le nb de lignes visibles

Dim cel As Range
dim nb as single
nb = 0
For Each cel In Range(ActiveCell.Offset(1, 0), Cells(dernière_ligne,
ActiveCell.Column))
If cel.EntireRow.Hidden = False Then nb = nb+1
End If
Next cel

Eric

 

[Lapou]

Hello !!!

tu peux aussi faire :
=SOUS.TOTAL(3;A1:A1000)

si des données sont en colonne A par exemple, après le filtre cela te donnera le nb de ligne restante en comptabilisant ds A

Bonne journée
Tchao

 

[nyco]

Merci beaucoup pour vos solutions
@ bientôt.