Discussion :

[apt]

Bonsoir à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        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.

[Daniel.C]

Bonjour,

LSteph t'a répondu sur mpfe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Marque cette discussion comme "Résolue".

[AlphaScorpi]

Au passage, si tu veux vérifier que deux plages sont les mêmes tu peux utiliser Union

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        If Union(ZoneDuFiltre, ZoneEnTete).Address = ZoneEnTete.Address Then
            MsgBox ("Pas de resultat")
        End If

Testé avec le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
 
    Dim WS As Worksheet
    Dim rng As Range
    Dim rng2 As Range
    Dim rng3 As Range
    Set WS = ThisWorkbook.Worksheets("Feuil1")
 
    With WS
        Set rng = .Cells(3, 1) ' Point de depart du filtre
        Set rng2 = .Range(.Cells(rng.Row, rng.Column), .Cells(.Cells(.Rows.Count, rng.Column).End(xlUp).Row, .Cells(rng.Row, .Columns.Count).End(xlToLeft).Column))
        Set rng2 = rng2.CurrentRegion.SpecialCells(xlCellTypeVisible)
        MsgBox rng2.Address
        Set rng3 = rng.Resize(, .Cells(rng.Row, .Columns.Count).End(xlToLeft).Column - rng.Column + 1)
        MsgBox rng3.Address
 
        If Union(rng2, rng3).Address = rng3.Address Then
            MsgBox ("no results")
        End If
 
    End With
 
End Sub

[apt]

Bonjour Daniel, AlphaScorpi

Ca n'a pas réussi.

J'ai essayé avec un critère de filtre élaboré qui à pour résultat 0 lignes, mais la ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Me rend un nombre de 309

Pour exemple voir PJ.

[mercatog]

Fais le calcul directement dans la feuille Journée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim NbLig As Long
    '.............
 
    With Worksheets("Journée")
        NbLig = .Cells(.Rows.Count, "A").End(xlUp).Row - 3
    End With
    MsgBox "_FilterDataBase Count = " & NbLig
 
    'Dans le cas d'une date = 15/07/2012 le nombre de ligne est égal = 0
    If NbLig > 0 Then
        Sheets("Journée").Activate
    Else
        MsgBox "pas de données inscrites pour la journée du " & .[H10]
    End If

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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