Discussion :

[moi244]

Bonjour à tous,

J'ai fait une macro qui filtre des données avec le filtre avancé selon un range donné, et ce, pour permettre à l'utilisateur de voir les données concernées en même temps je compte le nombre de ligne non-vides pour donner le nombre à l'usager.
Le tout fonctionne très bien, mais la valeur minimum qui me retourne c'est 1, donc même s'il n'existe aucune ligne non-vide à part ma ligne de titre de colonne, il me donne 1 au lieu de 0.
J'ai pensé alors de juste soustraire un 1, puisque il s'agirait peut-être de la ligne1 qui contient le titre de colonne, mais ce n'est pas le cas.
J'ai alors pensé à une deuxième solution de conditionner, donc si le chiffre qu'il me retourne c'est 1, il donne 0 à l'usager sinon il donne le chiffre qu'il compte. Cette astuce fonctionne très bien avec tous les chiffres >=1
Mai je me suis rendu compte que, quand il existe une ligne non-vide réellement (à part la ligne 1) il me retourne 0, ce qui évidement faux!

auriez-vous une idée d'où provient cette erreur? Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sheets("Feuil1").Range("A1:BO65536").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range(.Cells(1, 2), .Cells(4, 6)), Unique:=False
 
 
 
Nombre = Sheets("Feuil1").Range("A2", Sheets("Feuil1").Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells.Count
    If Nombre <= 1 Then
        UserForm1.Label1.Caption = 0
    Else:
        UserForm1.Label1.Caption = Nombre
    End If

[Philippe Tulliez]

Bonjour,
Si tu as écrit une procédure utilisant le filtre avancé et que tu veux compter le nombre de données filtrées, utilise plutôt une des fonctions de la catégorie Base de données comme BDNBVAL ou BDNB qui utilisent les mêmes paramètres Zone des données et zone des critères.

[moi244]

Y a-t-il un équivalent de cette fonction en vba?

[Philippe Tulliez]

Bonjour,

Oui, avec la méthode Application.WorksheetFunction.DCountA
Petit exemple ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub Filtre()
 Dim rng As Range, criteria As Range
 Set rng = db.Range("A1").CurrentRegion: Set criteria = param.Range("C1:D2")
 MsgBox "Nombre de données filtrées " & AdvancedFilter(rng, criteria)
End Sub
Function AdvancedFilter(dBase As Range, dCriteria As Range) As Long
 dBase.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=dCriteria
 AdvancedFilter = Application.WorksheetFunction.DCountA(dBase, 1, dCriteria)
End Function

[moi244]

Merci! ça marche!