Discussion :

[Nyck0las]

Salut,

dans ma macro, j'utilise des commandes de filtrage automatique et je souhaiterais ensuite connaître le nombre d'éléments qui ressortent de ce filtrage.
Pour celà, j'envisageais un truc de ce style :

Code :

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

1
2
3
4
5
6
7
8
9
Dim i As Integer
Dim nA As Integer, nI As Integer, S As Integer
 
S = 0
nA = Range("A:A").SpecialCells(xlCellTypeVisible).Areas.Count
For i = 1 To nA
    nI = Range("A:A").SpecialCells(xlCellTypeVisible).Areas(i).Item.Count
    S = S + nI
Next

mais le problème c'est

Code :

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

item.count

çà n'existe pas et je ne sais pas par quoi je pourrais le remplacer ...

[tirex28]

Bonjour,

Code :

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

1
2
3
4
5
  Dim Zone As Range, n As Long
    For Each Zone In Worksheets(1).AutoFilter.Range.Areas
        n = n + Zone.Rows.Count
    Next
    MsgBox n-1 'Pour decompter la ligne de titre

Cordialement,

Tirex28/

[Nyck0las]

çà compile correctement mais çà ne me sort pas le bon résultat. J'obtiens un nombre beaucoup trop gros correspondant, je pense, au nombre total de ligne et pas seulement au nombre de lignes non masquées

[tirex28]

Re,

Autant poir moi, il manquait un morceau:

Code :

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

For Each Zone In Worksheets(1).AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas

Cordialement,

Tirex28/

[Nyck0las]

j'ai corrigé ce que tu m'as dit mais çà me compte toujours des lignes de trop

[Nyck0las]

Code :

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

X = Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible).Count

ou

Code :

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

X = [SUBTOTAL(3,A2:A1000)]

ce sont 2 solutions qu'on m'a données et qui marchent en 1 ligne !!