Connaitre le nb de lignes d'une autofilter

Bonjour.
Essaie ceci en sélectionnant une colonne de données :

For Each Cell In Sélection
If Rows(Cell.Row).Hidden = False Then
Ctr=Ctr+1
End If
Next
MsgBox Ctr

Cordialement.
Daniel
"Gege" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 6ac301c52589$97e37260$a601280a@phx.gbl...

Bonjour,
J'aimerai connaitres les ordres vba pour avoir le nb de
ligne d'un filtre.
Tout ce que j'essaie me donne le numero de la ligne mais
pas le nombre de lignes contenu dans un filtrage.
J'ai essayer area.count / selection.area.count.... etc
rien ne va.

Merci pour un coup de pouce
Cdlt
Gege

Pour la colonne A :

MsgBox [subtotal(3,A:A)]

AV

Ok je vais de ce pas le tester.
Merci pour l'info.cdlt

Gege

-----Message d'origine-----
Bonjour.
Essaie ceci en sélectionnant une colonne de données :

For Each Cell In Sélection
If Rows(Cell.Row).Hidden = False Then
Ctr=Ctr+1
End If
Next
MsgBox Ctr

Cordialement.
Daniel
"Gege" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news: 6ac301c52589$97e37260$a601280a@phx.gbl...

Bonjour,
J'aimerai connaitres les ordres vba pour avoir le nb de
ligne d'un filtre.
Tout ce que j'essaie me donne le numero de la ligne mais
pas le nombre de lignes contenu dans un filtrage.
J'ai essayer area.count / selection.area.count.... etc
rien ne va.

Merci pour un coup de pouce
Cdlt
Gege

.

Bonjour
Sinon à condition que le tableau commence en A1
MsgBox
ActiveSheet.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Count
Mais qui te comptera les cellules de l'en-tête.
Cordialement
Pascal

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23ZE5lyYJFHA.3596@TK2MSFTNGP14.phx.gbl...

Pour la colonne A :

MsgBox [subtotal(3,A:A)]

AV

bonjour,

une soluce de + inspirée de celle de Papou ( qui donne le nbre de celluless
mais pas le nbre de lignes sauf dans le cas où il n' y a q'une colonne en
jeu, ce qui était sasn doute ton cas et donc n'invalide en rien sa réponse )
pour la bonne forme.

Set Plage =
ActiveSheet.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)

For Each ar In Plage.Areas
nblignes = ar.Rows.Count + nblignes
Next

MsgBox "le nombre de ligne est : " & nblignes - 1

A+

Bonjour,
J'aimerai connaitres les ordres vba pour avoir le nb de
ligne d'un filtre.
Tout ce que j'essaie me donne le numero de la ligne mais
pas le nombre de lignes contenu dans un filtrage.
J'ai essayer area.count / selection.area.count.... etc
rien ne va.

Merci pour un coup de pouce
Cdlt
Gege

Merci à tous pour les nombvreuses réponses,
effectivement certains codes ne me donnait que le numéro
de ligne et d'autres le nombre de lignes.
J'ai pu me debrouille avec vos réponses comme d'hab ;-))
Merci encore

-----Message d'origine-----
Bonjour,
J'aimerai connaitres les ordres vba pour avoir le nb de
ligne d'un filtre.
Tout ce que j'essaie me donne le numero de la ligne mais
pas le nombre de lignes contenu dans un filtrage.
J'ai essayer area.count / selection.area.count.... etc
rien ne va.

Merci pour un coup de pouce
Cdlt
Gege
.

Bonjour
Sinon je propose ça :
Dim tbl As Range
Set tbl = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
MsgBox (tbl.Cells.Count - tbl.Columns.Count) / tbl.Columns.Count

Cordialement
Pascal

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
OrChP2YJFHA.3076@tk2msftngp13.phx.gbl...

Bonjour
Sinon à condition que le tableau commence en A1
MsgBox
ActiveSheet.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Count
Mais qui te comptera les cellules de l'en-tête.
Cordialement
Pascal

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23ZE5lyYJFHA.3596@TK2MSFTNGP14.phx.gbl...

Pour la colonne A :

MsgBox [subtotal(3,A:A)]

AV