Discussion :

[depi67]

bonjour,

j'ai besoin de compter le nombre de ligne afficher selon les filtres selectionnés.
j'ai utilisé le code suivant (trouvé dans votre forum - message août 2005)

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
19
20
21
 
    Worksheets("T2_GTIE_fines_simplifié").Select
    If Worksheets("T2_GTIE_fines_simplifié").FilterMode = False Then
       Sheets("T2_GTIE_fines_simplifié").Range("T2_PDT:T2_PLF").AutoFilter
    End If
    Selection.AutoFilter Field:=1, Criteria1:=W_NU_PDT
    Selection.AutoFilter Field:=3, Criteria1:=W_GTIE_COMM
    Selection.AutoFilter Field:=7, Criteria1:="<>"  ' groupe acte plafond non vide
 
aa = Worksheets("T2_GTIE_fines_simplifié").Range("A2:A" & _
Worksheets("T2_GTIE_fines_simplifié").Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Count - 1
 
    If aa = 0 Then
       W_NB_ERR_PLF = W_NB_ERR_PLF + 1
       W_CPT_ERR_PLF = W_CPT_ERR_PLF + 1
       W_CPT_ERR = W_CPT_ERR + 1
       W_LIBEL = "Garantie sans groupe acte plafond dans T2_GTIE_fines_simplifié"
       Call gest_erreur(W_CPT_ERR, 10, W_LIBEL, W_GTIE_TF, W_NU_PDT, "", W_GTIE_COMM, "", "")
    else
       suite du traitement
    end if

lors de ma sélection, lorsque je n'ai pas d'enregistrements, j'ai bien 0 (aa =0) mais
si j'ai 1 enregistrements aa =0 et non 1
si j'ai 2 enregistrements aa =1 et non 2

si j'enlève le -1 j'ai bien le nombre exact d'enregistrement trouvé mais
aa = 1 si 0 enregistrements

Code :

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

1
2
aa = Worksheets("T2_GTIE_fines_simplifié").Range("A2:A" & _
Worksheets("T2_GTIE_fines_simplifié").Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Count

j'espère que j'étais assez clair
merci d'avance pour votre aide

[David2304]

Bonjour,

Si j'ai bien compris, tu souhaites obtenir le nombre de lignes que te ressort un filtre ?

Dans ce cas, utilise la fonction sous.total qui est spécialement prévue pour ça

[depi67]

oui c'est ça.
mais tu l'utilises comment cette fontion sous.total ?

[zazaraignée]

Menu : Données, Sous-totaux...

Tu enregistre une macro et tu t'inspires du code obtenu.

Ensuite tu nous dit où ton code coince, le cas échéant.

[David2304]

Tu mets ta fonction dans une cellule au-dessus du filtre par exemple en A1

Code :

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

=SOUS.TOTAL(103;A3:A100)

Le 103 correspond au numéro de la fonction NBVAL
Lorsque tu mets un filtre cette fontion ne prend en compte que les cellules affichées par le filtre

Utilise l'aide d'Excel tu comprendras mieux

[depi67]

effectivement lorsque j'utilise cette fonction et que je mets le résultat dans une cellule ça fonctionne.

Code :

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

 Range("A1").Value = "=Subtotal(103, A2:A65536)"

Mais je souhaiterais que le résultat soit dans une variable et non une cellule.
du coup, ça ne fonctionne pas.

Code :

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

1
2
Dim aa As Integer
aa = Subtotal(103, range("A2:A65536"))

il me dit erreur de compilation sub ou fonction non définie.
merci pour votre aide.

[AlainTech]

Je parierais pour

Code :

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

1
2
Dim aa As Integer
aa = WorksheetFunction.Subtotal(103, range("A2:A65536"))

(non testé)

[depi67]

merci ça fonctionne