Discussion :

[Tifendro]

bonjour,

je travaille actuellement à l'édition d'une macro pour Excel.
je possède une base de donnée (tableau excel)

lorsque je suis sur une feuille, je lance un filtrage en macro.

j'aimerais connaitre le nombres de resultats que ce filtre me donne.
et si le filtre à fonctionné ( si erreur dans le nom à filtrer)

Merci pour votre aide
++
tifendro

Code :

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

1
2
3
4
5
6
7
8
 
' On prend la feuille base de donnée.
    Worksheets("BDD").Select
' On selectionne les cellules
    Worksheets("BDD").Range("K3").CurrentRegion.Select
' On filtre suivant les critères Systeme!C1:D2
    Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
                Worksheets("Systeme").Range("C1:E2"), Unique:=False

Le filtrage marche très bien, il me manque juste le nombre de résultats.

[Invité]

Bonjour

J'utilise cela pour avoir le nombre de lignes filtrés

Code :

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

1
2
3
4
5
6
7
 
' connaitre le nombre de lignes filtrés
    Dim ligne
    Dim lngCompteLigne As Long
    For Each ligne In wks.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
        lngCompteLigne = lngCompteLigne + 1
    Next ligne

Si cela peut t'inspirer

Starec

[Tifendro]

Aie
j'ai testé et ca me dit : Objet requis
sur la ligne :

Code :

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

1
2
 
For Each ligne In wks.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows

[Invité]

Re

Excuse wks est une variable objet où j'avais mis précédement le nom d'une feuille.

En fait c'est Worksheet("tafeuille")

Starec

[Tifendro]

Merci pour ton aide.
Ca a bien orienter mes recherches.

Comme ca ne marchait toujours pas, je me suis rabatu sur plus simple.

Pour les amateurs voila ce que j'ai trouvé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 ' Connaitre le nombre de lignes filtrés
    Dim UpperLeftCorner As Range
    ' On definit la zone de comptage :
    Set UpperLeftCorner = ActiveSheet.Range("A1")
    NbLignes = -1
    For Each area In _
        UpperLeftCorner.CurrentRegion.SpecialCells(xlVisible).Areas
        NbLignes = NbLignes + area.Rows.Count
    Next
    MsgBox NbLignes

Testé et approuvé

merci encore ++
tifendro

[ouskel'n'or]

Et si en plus tu veux connaître le No des lignes...

Code :

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

1
2
3
4
5
6
7
8
9
Dim NoLigne(), i, j
    For Each ligne In Sheets("feuil1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
        i = i + 1
        ReDim Preserve NoLigne(i)
        NoLigne(i) = ligne.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    Next
    For j = 1 To i
        MsgBox NoLigne(j)
    Next