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
'---------------------
Et comme la macro est lancée depuis la feuille active "Accueil", alors je n'ai qu'à écrire ceci :
'---------------- MsgBox "Nbre de lignes filtrées : " & .[L2] If [L2] > 0 Then Sheets("Journée").Activate Else MsgBox "pas de données inscrites pour la journée du " & .[H 10] End If
'----------------
et ça me donne bien le nombre exact des lignes filtrées.
Pour la code de h2so4 et Isabelle, je devrais remplacer -3 à la fin de la fonction Subtotal() :
par -2 (parce que je n'ai que deux valeurs non vides dans A1:A3)
Merci pour tous.
Bonjour DanielCo, LSteph,
J'ai utilisé la fonction de Daniel en L2 :
=BDNBVAL(A2:E63;B2;G2:J3) 'G2:J3 zone de critères
Et comme la macro est lancée depuis la feuille active "Accueil", alors je n'ai qu'à écrire ceci :
'----------------
MsgBox "Nbre de lignes filtrées : " & .[L2]
If [L2] > 0 Then
Sheets("Journée").Activate
Else
MsgBox "pas de données inscrites pour la journée du " & .[H 10]
End If
'----------------
et ça me donne bien le nombre exact des lignes filtrées.
Pour la code de h2so4 et Isabelle, je devrais remplacer -3 à la fin de la fonction Subtotal() :
Et comme la macro est lancée depuis la feuille active "Accueil", alors je n'ai qu'à écrire ceci :
'---------------- MsgBox "Nbre de lignes filtrées : " & .[L2] If [L2] > 0 Then Sheets("Journée").Activate Else MsgBox "pas de données inscrites pour la journée du " & .[H 10] End If
'----------------
et ça me donne bien le nombre exact des lignes filtrées.
Pour la code de h2so4 et Isabelle, je devrais remplacer -3 à la fin de la fonction Subtotal() :