Compter le nombres de lignes d'un filtre élaboré

Le
Apitos
Bonsoir à tous,

Pour compter le nombre de lignes résultantes d'un filtre élaboré, j'a=
i essayé ce code sans rien obtenir :

'
If Intersect(Range("_FilterDatabase").Cells, _
Range("_FilterDatabase").SpecialCells(xlCellTypeVisibl=
e)).Address _
= "Journée!$A$3:$D$3" Then
MsgBox ("no results")
End If
'

Merci d'avance.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #24662111
Bonjour,

Ceci affiche le nombres de lignes visibles d'un filtre élaboré (-1 c'est
pour ne pas compter le titre)

MsgBox Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Count - 1

'LSteph



"Apitos" news:
Bonsoir à tous,

Pour compter le nombre de lignes résultantes d'un filtre élaboré, j'ai
essayé ce code sans rien obtenir :

'---------------------
If Intersect(Range("_FilterDatabase").Cells, _
Range("_FilterDatabase").SpecialCells(xlCellTypeVisible)).Address
_
= "Journée!$A$3:$D$3" Then
MsgBox ("no results")
End If
'---------------------

Merci d'avance.
Apitos
Le #24662571
Bonjour LSteph,

Bonjour, Ceci affiche le nombres de lignes visibles d'un filtre élabor é (-1 c'est pour ne pas compter le titre)


MsgBox Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Count - 1

J'ai essayé mais ça n'a pas réussi.

Le compte est toujours plus grand que zéro (dans mon exemple joint il est de 309 lignes, or il devrait être égal à 0 !)

http://cjoint.com/?BGCnwQjjLo7
DanielCo
Le #24663291
Bonjour,
½NBVAL(A2:E63;B2;Criteres)
Daniel


Bonjour LSteph,

Bonjour, Ceci affiche le nombres de lignes visibles d'un filtre élaboré (-1
c'est pour ne pas compter le titre)


MsgBox Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Count - 1

J'ai essayé mais ça n'a pas réussi.

Le compte est toujours plus grand que zéro (dans mon exemple joint il est de
309 lignes, or il devrait être égal à 0 !)

http://cjoint.com/?BGCnwQjjLo7
isabelle
Le #24663481
bonjour,

x = Application.Subtotal(3, Range("A:A"))

ou

=SOUS.TOTAL(3;A:A)

ou

=SUBTOTAL(3,A:A)

--
isabelle



Le 2012-07-28 07:27, Apitos a écrit :
Bonjour LSteph,

Bonjour, Ceci affiche le nombres de lignes visibles d'un filtre élaboré (-1 c'est pour ne pas compter le titre)


MsgBox Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Count - 1

J'ai essayé mais ça n'a pas réussi.

Le compte est toujours plus grand que zéro (dans mon exemple joint il est de 309 lignes, or il devrait être égal à 0 !)

http://cjoint.com/?BGCnwQjjLo7
Apitos
Le #24663671
Bonsoir Daniel, Isabelle

Les deux codes en vba donne une erreur d'excécution

Daniel ::
MsgBox "Nombre de lignes : " & Evaluate("dcounta(" & .Range("A2:E63") & ",B 2," & [Crit].Address & ")")

Isabelle ::
MsgBox "Nombres de lignes = " & Application.Subtotal(3, Sheets("Journé e").Range("A:A") - 3)
DanielCo
Le #24663821
J'ai jamais écrit ça. Teste avec le code fourni.
Daniel


Bonsoir Daniel, Isabelle

Les deux codes en vba donne une erreur d'excécution

Daniel ::
MsgBox "Nombre de lignes : " & Evaluate("dcounta(" & .Range("A2:E63") &
",B2," & [Crit].Address & ")")

Isabelle ::
MsgBox "Nombres de lignes = " & Application.Subtotal(3,
Sheets("Journée").Range("A:A") - 3)
h2so4
Le #24663951
Pour la proposition d' Isabelle qui tu as modifiée.
Si j'ai compris ce que tu essaies de faire, cela devrait
MsgBox "Nombres de lignes = " & _
(Application.Subtotal(3,Sheets("Journée").Range("A:A")) - 3)

--
h2so4
Apitos
Le #24664211
Re,

DanielCo :: Ca me donne la même erreur :

MsgBox Evaluate("dcounta(A2:E63,B2," & [Criteres].Address & ")")

Erreur d'exécution '13' :

Incompatibilité de type

Pour la formule ça me donne : 0 pour la date du 15/07/12 et 2 pour la dat e du 16/07/12; Ce qui est juste

Mais la formule en codage VBA déclenche une erreur.

h2soa ::

Par cette rectification, l'erreur est bien éviter.

Seulement ça donne un -1 pour la date du 15/07/12 (0 lignes) et 1 pour la date du 16/07/12 (2 lignes)

J'ai fait -3 à la fin de la fonction pour soustraire les trois première s liges.
DanielCo
Le #24664651
Regarde le lien joint :
http://cjoint.com/?BGDlbX4KX2m
Je cesse de continuer à discuter sur ce fil.
Daniel


Re,

DanielCo :: Ca me donne la même erreur :

MsgBox Evaluate("dcounta(A2:E63,B2," & [Criteres].Address & ")")

Erreur d'exécution '13' :

Incompatibilité de type

Pour la formule ça me donne : 0 pour la date du 15/07/12 et 2 pour la date du
16/07/12; Ce qui est juste

Mais la formule en codage VBA déclenche une erreur.

h2soa ::

Par cette rectification, l'erreur est bien éviter.

Seulement ça donne un -1 pour la date du 15/07/12 (0 lignes) et 1 pour la
date du 16/07/12 (2 lignes)

J'ai fait -3 à la fin de la fonction pour soustraire les trois premières
liges.
LSteph
Le #24664841
Bonjour,

Normal dans ton exemple tu appliques autre chose!

--
LSteph



"Apitos" news:
Bonjour LSteph,

Bonjour, Ceci affiche le nombres de lignes visibles d'un filtre élaboré
(-1 c'est pour ne pas compter le titre)


MsgBox Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Count - 1

J'ai essayé mais ça n'a pas réussi.

Le compte est toujours plus grand que zéro (dans mon exemple joint il est de
309 lignes, or il devrait être égal à 0 !)

http://cjoint.com/?BGCnwQjjLo7
Publicité
Poster une réponse
Anonyme