Compter le nombre de lignes d'une plage de cellule filtree
Résolu
Emie
-
Emie -
Emie -
Bonjour,
pour mon code, j'ai besoin de compter le nombre de lignes restantes apres filtrage de ma plage de cellules
j'utilise cette fonction :
MsgBox WorksheetFunction.Subtotal(3, Columns(1)) - 1
mais au lieu de me renvoyer les 40 lignes visibles, il me donne un chiffre farfelu
J espere que ma demande est claire
merci
Emie
pour mon code, j'ai besoin de compter le nombre de lignes restantes apres filtrage de ma plage de cellules
j'utilise cette fonction :
MsgBox WorksheetFunction.Subtotal(3, Columns(1)) - 1
mais au lieu de me renvoyer les 40 lignes visibles, il me donne un chiffre farfelu
J espere que ma demande est claire
merci
Emie
1 réponse
-
J'ai trouve cette fonction pour repondre a ca :
Function Count_Filtered_Rows()
Dim UpperLeftCorner As Range
' UpperLeftCorner should be set to the upper-left
' corner of the list range:
Set UpperLeftCorner = Sheets(2).Range("A1")
RowCount = -1
For Each area In _
UpperLeftCorner.CurrentRegion.SpecialCells(xlVisible).Areas
Count_Filtered_Rows = Count_Filtered_Rows + area.Rows.Count
Next
End Function
mais, le probleme est que si le contenu est vide, cela ne lui pose pas de probleme....
