Compter les lignes

vbacrumble

XLDnaute Accro

• 18 Février 2009

• #2

Re : Compter les lignes

Bonjour



Voir la formule SOUS.TOTAL

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

A+

 

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 18 Février 2009

• #3

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 .

Code:

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 18 Février 2009

• #4

Re : Compter les lignes

bonjour

par formule : regarde Sous.total

par macro :

Code:

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

oups : bonjour vbacrumble, jeremyy

 

Dernière édition: 18 Février 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Février 2009

• #5

Re : Compter les lignes

Bonjour à tous


Pour compléter en VBA une autre syntaxe

Code:

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+

 

Vote positif 0 Vote négatif

R

red-69

Guest

• 18 Février 2009

• #6

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.😀

 

Vote positif 0 Vote négatif