Compter le nombre de lignes d'une plage de cellule filtree
Résolu
Emie
-
Emie -
Emie -
A voir également:
- Compter le nombre de ligne excel avec filtre
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Aller à la ligne excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Partage de photos en ligne - Guide
- Liste déroulante excel - Guide
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....
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....
Avez vous essayé avec ça :
MsgBox Feuil1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count
Bonne suite
A bientot!!