Discussion :

[calimero91]

bonjour a tous

j'ai un petit probleme en VBA Excel avec les filtres.
je viens de recuperer un tableau ou des filtres sont appliqué, et j'aurais voulu savoir si il ete possible de compter le nombre de ligne afficher selon les filtres selectionnes.car actuellement je compte le nombre total de ligne sans tenir compte des filtres et je ne vois pas comment faire.

merci d'avance pour votre reponse.

si en plus vous avez un exemple ça serrai parfait.

[calimero91]

je sais pas si j'ai ete clair.

voila j'ai un tableau composer de plusieur colonne, sur chaque colonne il y a un filtre.et j'aimerai pouvoir compter le nombre de ligne sur lequel s'applique ce filtre. j'utilise ce code:

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
Option Explicit
Public NbLigne As String
Public msg As String
 
Sub CompteurLignes()
 
NbLigne = 0
 
If Worksheets("LUP VALID CLIP").FilterMode = True Then
    NbLigne = Range("R2").EntireColumn.SpecialCells(xlCellTypeConstants).Count
    msg = NbLigne
    MsgBox msg, , "voici le nombre de lignes"
Else
    msg = "aucune selection"
    MsgBox msg, , "voici le nombre de lignes"
End If
 
End Sub

mais le probleme avec ce code c que je compte la totalite des lignes remplis sans tenir compte du filtre de selection.

j'espere avoir ete plus clair et merci.

[SilkyRoad]

bonjour

tu peux tester

Code :

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

1
2
3
4
Sub NbLignesAfficheesFiltreAuto()
MsgBox Worksheets("LUP VALID CLIP").Range("R2:R" & _
Worksheets("LUP VALID CLIP").Range("R65536").End(xlUp).Row).SpecialCells(xlVisible).Count - 1
End Sub

cordialement
michel

[calimero91]

merci bcp pour la solution.