Compter les lignes

[red-69]

Bonjour le forum.

Voila mon problème : j'ai un tableau d'environ 2000 lignes et 9 colonnes.
J'applique un filtre automatique sur la ligne des titres des colonnes (ligne 3).
Je souhaiterai avoir une macro me permettant de compter le nombre de lignes (sans compter la ligne des titres, donc à partir de la ligne 4) dans mon tableau en fonction du filtre appliqué.

Donc pour résumer, si je n'applique pas de filtre la valeur serai de 2000 et cette valeur serai modifiée en fonction du filtre appliqué.

Par avance merci pour votre aide.

 

[vbacrumble]

Re : Compter les lignes

Bonjour



Voir la formule SOUS.TOTAL

(Plus de détails dans l'aide d'Excel , touche F1)

A+

 

[Jeremyy]

Re : Compter les lignes

Voila il se met en A4 et va jusqu'a la derniere ligne !
derligne te donnera la nombre de ligne que tu as .

Range("A4").Select
derligne = Range("A65536").End(xlUp).Row

 

[wilfried_42]

Re : Compter les lignes

bonjour

par formule : regarde Sous.total

par macro :

Sub ligne()
    Dim nbligne As Long
    nbligne = Range("A1").CurrentRegion.Cells.SpecialCells(xlCellTypeVisible).Rows.Count - 1
    MsgBox nbligne
End Sub

oups : bonjour vbacrumble, jeremyy

 

[vbacrumble]

Re : Compter les lignes

Bonjour à tous


Pour compléter en VBA une autre syntaxe

Sub macro() 'ici filtre sur colonne A
Dim r As Range
Set r = ActiveSheet.AutoFilter.Range.Columns(1)
MsgBox r.SpecialCells(xlCellTypeVisible).Count -1 _
& " lignes filtrée(s) sur " _
& r.Cells.Count & " lignes au total."
End Sub

A+

 

[red-69]

Re : Compter les lignes

Merci à tous pour la rapidité d'intervention !

J'ai utilisé la méthode de vbacrumble et c'est parfaitement efficace.

Merci encore.