Discussion :

[ninikosim]

Bonjour,
j'ai crée une macro afin d'appliquer plusieur filtres à un fichier et récuperer ensuite le nombre de ligne sauf ma macro elle marche une fois sur 10.

quand elle fait n'importe quoi elle me met tout les nombre de ligne à 19 ou à 13. bref je ne sais pas quoi faire mes filtres sont bien vu que j'utilise les mêmes dans une autre macro.

si vous pouvez m'aider vous allez me sauver la vie

voilà mon 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub synthese_suivi()
    Dim L, P, K, M, N, O As Long
    ' retard
    Worksheets("Retard").Cells.AutoFilter Field:=1, Criteria1:="DIR3"
    Worksheets("Retard").Cells.AutoFilter Field:=11, Criteria1:="0"
    L = [SUBTOTAL(3,A:A)] - 1
 
 
    Worksheets("Retard").Cells.AutoFilter Field:=1, Criteria1:="DIR15"
    P = [SUBTOTAL(3,A:A)] - 1
 
 
    Worksheets("Retard").Cells.AutoFilter Field:=1, Criteria1:="DIR19"
    K = [SUBTOTAL(3,A:A)] - 1
    Worksheets("Retard").Cells.AutoFilter
 
 
 
    Worksheets("CT").Cells.AutoFilter Field:=1, Criteria1:="DIR3"
    Worksheets("CT").Cells.AutoFilter Field:=9, Criteria1:="Non soldé"
   Worksheets("CT ").Cells.AutoFilter Field:=11, Criteria1:=">=1", Operator:=xlAnd, _
        Criteria2:="<=3"
    M = [SUBTOTAL(3,A:A)] - 1
 
 
    Worksheets("CT").Cells.AutoFilter Field:=1, Criteria1:="DIR15"
    Worksheets("CT ").Cells.AutoFilter Field:=9, Criteria1:="Non soldé"
    Worksheets("CT").Cells.AutoFilter Field:=11, Criteria1:=">=1", Operator:=xlAnd, _
        Criteria2:="<=3"
    N = [SUBTOTAL(3,A:A)] - 1
 
 
    Worksheets("CT").Cells.AutoFilter Field:=1, Criteria1:="DIR19"
    Worksheets("CT").Cells.AutoFilter Field:=9, Criteria1:="Non soldé"
    Worksheets("CT").Cells.AutoFilter Field:=11, Criteria1:=">=1", Operator:=xlAnd, _
        Criteria2:="<=3"
    O = [SUBTOTAL(3,A:A)] - 1
    Worksheets("CT").Cells.AutoFilter
 
    Worksheets("synthèse du mois").Cells(2, 4) = L
    Worksheets("synthèse du mois").Cells(2, 5) = P
    Worksheets("synthèse du mois").Cells(2, 6) = K
    Worksheets("synthèse du mois").Cells(3, 4) = M
    Worksheets("synthèse du mois").Cells(3, 5) = N
    Worksheets("synthèse du mois").Cells(3, 6) = O
End Sub

[casefayere]

Je n'ai pas tout compris mais si tu veux compter un nombre de lignes :

Code :

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

L = Worksheets("Retard").Cells.SpecialCells(xlCellTypeVisible).Rows.Count

[ninikosim]

j'ai essayé cela ne marche pas
enfin si ca marche mais juste la première fois mais si je relance la macro une deuxième fois ça me met toute les variables à une seul valeur.

[casefayere]

en respectant ton 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub synthese_suivi()
Dim L As Long, P As Long, K As Long, M As Long, N As Long, O As Long
Application.ScreenUpdating = True
With Worksheets("Retard")
   .Cells.AutoFilter Field:=1, Criteria1:="DIR3"
   .Cells.AutoFilter Field:=11, Criteria1:="0"
   L = .Cells.SpecialCells(xlCellTypeVisible).Rows.Count
   .AutoFilterMode = False
   .Cells.AutoFilter Field:=1, Criteria1:="DIR15"
   P = .Cells.SpecialCells(xlCellTypeVisible).Rows.Count
   .Cells.AutoFilter Field:=1, Criteria1:="DIR19"
   K = .Cells.SpecialCells(xlCellTypeVisible).Rows.Count
   .Cells.AutoFilterMode = False
End With
With Worksheets("CT")
   .Cells.AutoFilter Field:=1, Criteria1:="DIR3"
   .Cells.AutoFilter Field:=9, Criteria1:="Non soldé"
   .Cells.AutoFilter Field:=11, Criteria1:=">=1", Operator:=xlAnd, _
        Criteria2:="<=3"
    M = .Cells.SpecialCells(xlCellTypeVisible).Rows.Count
   .Cells.AutoFilterMode = False
   .Cells.AutoFilter Field:=1, Criteria1:="DIR15"
   .Cells.AutoFilter Field:=9, Criteria1:="Non soldé"
   .Cells.AutoFilter Field:=11, Criteria1:=">=1", Operator:=xlAnd, _
        Criteria2:="<=3"
    N = .Cells.SpecialCells(xlCellTypeVisible).Rows.Count
   .Cells.AutoFilterMode = False
   .Cells.AutoFilter Field:=1, Criteria1:="DIR19"
   .Cells.AutoFilter Field:=9, Criteria1:="Non soldé"
   .Cells.AutoFilter Field:=11, Criteria1:=">=1", Operator:=xlAnd, _
        Criteria2:="<=3"
   O = .Cells.SpecialCells(xlCellTypeVisible).Rows.Count
   .Cells.AutoFilterMode = False
End With
With Worksheets("synthèse du mois")
   .Cells(2, 4) = L
   .Cells(2, 5) = P
   .Cells(2, 6) = K
   .Cells(3, 4) = M
   .Cells(3, 5) = N
   .Cells(3, 6) = O
End With
Application.ScreenUpdating = False
End Sub

autre façon :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub synthese_suivi()
Dim L As Long, M As Long, N As Long
Dim i As Long, dl As Long
With Worksheets("Retard")
   dl = .Range("A" & .Rows.Count).End(xlUp).Row
   L = 0: M = 0: N = 0
   For i = 2 To dl
      If .Range("A" & i) = "DIR3" And .Range("K" & i) = 0 Then
         L = L + 1
      ElseIf .Range("A" & i) = "DIR15" Then
         M = M + 1
      ElseIf .Range("A" & i) = "DIR19" Then
         N = N + 1
         Worksheets("synthèse du mois").Cells(2, 6) = N
      End If
   Next i
End With
Worksheets("synthèse du mois").Cells(2, 4) = L
Worksheets("synthèse du mois").Cells(2, 5) = M
Worksheets("synthèse du mois").Cells(2, 6) = N
With Worksheets("CT")
   dl = .Range("A" & .Rows.Count).End(xlUp).Row
   L = 0: M = 0: N = 0
   For i = 2 To dl
      If .Range("A" & i) = "DIR3" And .Range("K" & i) = 0 Then
         L = L + 1
      ElseIf .Range("A" & i) = "DIR15" Then
         M = M + 1
      ElseIf .Range("A" & i) = "DIR19" Then
         N = N + 1
         Worksheets("synthèse du mois").Cells(2, 6) = N
      End If
   Next i
End With
Worksheets("synthèse du mois").Cells(3, 4) = L
Worksheets("synthèse du mois").Cells(3, 5) = M
Worksheets("synthèse du mois").Cells(3, 6) = N
End Sub

non vérifié

[ninikosim]

Bonjour,
merci pour votre aide

mais malheureusement cela ne me renvoi pas la bonne valeur. j'ai remarqué que les filtres il y a pas de soucci sur cela mais quand je recupère le nombre de ligne aprés le filtre c'est la ou ça déconne.

ça me rend fole. ma toute première macro marche une fois et pas la deuxième.
c'est fou

amicalement
ninikosim

[casefayere]

Bonjour,
Comme je ne suis pas devin et je pense que les autres membres doivent être dans le même cas, je crois qu'il est temps que tu envoyes une image de ta feuille, ou le fichier.