[EXCEL] Resultats de mes recherches

Version imprimable

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:

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.

Bonjour

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

Code:

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

26/02/2007, 19h21
Tifendro
Aie
j'ai testé et ca me dit : Objet requis
sur la ligne :
Code:

1 2 For Each ligne In wks.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
27/02/2007, 07h31
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

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:

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

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

Code:

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