Pour compter le nombre de lignes r=E9sultantes d'un filtre =E9labor=E9, j'a=
i essay=E9 ce code sans rien obtenir :
'---------------------
If Intersect(Range("_FilterDatabase").Cells, _
Range("_FilterDatabase").SpecialCells(xlCellTypeVisibl=
e)).Address _
=3D "Journ=E9e!$A$3:$D$3" Then
MsgBox ("no results")
End If
'---------------------
"Apitos" a écrit dans le message de 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.
Bonjour,
Ceci affiche le nombres de lignes visibles d'un filtre élaboré (-1 c'est
pour ne pas compter le titre)
"Apitos" <apitos@gmail.com> a écrit dans le message de
news:76d5a9c2-4c8e-402b-89bd-ce5b255a7434@googlegroups.com...
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
'---------------------
"Apitos" a écrit dans le message de 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
Bonjour LSteph,
Bonjour, Ceci affiche le nombres de lignes visibles d'un filtre élabor é (-1 c'est pour ne pas compter le titre)
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
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)
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)