Compter le nombre de lignes filtrées

Bonjour Daniel,

Avec une des colonnes de la plage de données nommée ici Zn...

Sub zaza()
inF = MsgBox(Application.Subtotal(3, [Zn]) - 1 _
& " enregistrement(s) trouvé(s) sur " & [Zn].Rows.Count - 1, _
vbInformation, "Info...")
End Sub


ChrisV


"daniel" <daniel@discussions.microsoft.com> a écrit dans le message de news:
65918ED9-8C7F-4A07-8A9F-43125FF6E1D9@microsoft.com...

Bonjour,

Je cherche la syntaxe en VBA qui permet de compter le nombre de lignes
filtrées sur une colonnes.

Merci d'avance pour votre aide.

Daniel

ChrisV,

Merci pour ton aide. Mais, la syntaxe que tu m'as donné me fait une erreur
d'éxecution.

Je vais décrire différement mon problème. Dans une macro, j'exécute la
commande suivante :

Sheets("FeuilData").Select
Selection.AutoFilter Field:=6, Criteria1:="<>"
Selection.AutoFilter Field:, Criteria1:="="

et j'aimerai compter le nombre de lignes filtrées.

Bonjour Daniel,

Avec une des colonnes de la plage de données nommée ici Zn...

Sub zaza()
inF = MsgBox(Application.Subtotal(3, [Zn]) - 1 _
& " enregistrement(s) trouvé(s) sur " & [Zn].Rows.Count - 1, _
vbInformation, "Info...")
End Sub


ChrisV


"daniel" <daniel@discussions.microsoft.com> a écrit dans le message de news:
65918ED9-8C7F-4A07-8A9F-43125FF6E1D9@microsoft.com...

Bonjour,

Je cherche la syntaxe en VBA qui permet de compter le nombre de lignes
filtrées sur une colonnes.

Merci d'avance pour votre aide.

Daniel

et j'aimerai compter le nombre de lignes filtrées.

Si tu as des étiquettes de colonnes :
MsgBox [subtotal(3,A:A)-1]
sinon supprime le -1

AV

PS :
Tu pourrais très bien, pour ce type de calcul, te passer d'un filtre et faire
directement le calcul grace à 2 tests logiques
Exemple avec plages nommées :
MsgBox [sumproduct((champ6<>"")*(champ12=""))]

AV