Discussion :

[tools]

Bonjour,

Je souhaiterai recuperer le nombre de ligne de mon filtre dans une varible, mais mon code bloque la ou il est bleu.

D'avance merci de prendre le temps de me venir en aide.

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
' si aujourd'hui = date dernier action indic + 7 on fait
 Dim aujourd As Date
 Dim proind As Date
 Dim derind As Date
 Dim fait As Integer
 Dim cours As Integer
 

 aujourd = Range("A16").Value
 derind = Range("A12").Value
 proind = Range("A14").Value
 
 
If aujourd = proind Then

' recherche le nombre réaliser les 7 derniers jours
    
    Dim date1 As Single
    Dim date2 As Single

    date1 = CDate(Range("A12"))      ' date derniere réal
    date2 = CDate(Range("A16"))     ' date aujourd'hui

    
    
    Sheets("HISTO.SYSTEMATIQUE").Select
ActiveSheet.Unprotect Password:="remi"
    
    Selection.AutoFilter Field:=17, Criteria1:=">=" & date1, Criteria2:="<=" & date2

'trouver le nombre de ligne filtrée
fait = Range("P:P").SpecialCells(xlCellTypeVisible).Count - 1      'nombre de syst faite 7 derniers jours

Selection.AutoFilter Field:=17

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
 
'recherche le nombre en cours

    Sheets("SYSTEMATIQUE").Select
ActiveSheet.Unprotect Password:="remi"
    
    Selection.AutoFilter Field:=21, Criteria1:="EN COURS"
    
'trouver le nombre de ligne filtrée
cours = Range("T:T").SpecialCells(xlCellTypeVisible).Count - 1                  'nbre de syst en cours
Selection.AutoFilter Field:=21

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True


Sheets("INDICATEURS").Select
'remplacer la date de la dernier indic

Cells(7, 4).Value = fait
 Cells(6, 3).Value = cours
'decaler les cellule de destination


End If


End Sub

J'ai aussi essayé

fait = Range([Subtotal(3, L:L)] - 1 )

Mais cela ne fonctionné pas non plus.

Encore merci

Cordialement

[casefayere]

bonsoir,

essayes avec variable range

Code :

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

1
2
3
4
5
Dim fait As range
Dim cours As range
....
set fait = application.Range("P1").SpecialCells(xlCellTypeVisible)
msgbox fait.count -1 'tu adapteras

idem pour cours

[tools]

Bonjour,


Tout d'abords merci de me venir en aide.

J'ai du mal m'exprimer, je souhaite placer dans une cellule le nombre de ligne obtenu par mon filtre et non dans un msgbox.
Et je n'y arrive pas avec votre méthode.

Ci joint un fichier qui précise mieux ce que je souhaite faire.

Encore merci de m'aider

Cordialement

[tools]

Voici le fichier.

Nouveau Feuille Microsoft Office Excel.xls

[casefayere]

je n'ai pas encore regarder ton code mais j'ai mis "a adapter"

je souhaite placer dans une cellule le nombre de ligne obtenu par mon filtre et non dans un msgbox.

si tu mets ton nombre de lignes en A3 par exemple

Code :

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

1
2
set fait = application.Range("P1").SpecialCells(xlCellTypeVisible)
range("A3") = fait.count -1

je viens de regarder, sans filtre, essayes comme ça

Code :

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

1
2
3
4
5
Sub Bouton_click()
Dim nbl As Integer
nbl = Range("a" & Rows.Count).End(xlUp).Row
Range("J1") = Application.WorksheetFunction.CountIf(Range("a1:a" & nbl), "pomme*")
End Sub

j'ai mis une etoile après pomme car tu as des espaces derriere

[tools]

Bonjour,

Merci beaucoup, le deuxième code fonctionne parfaitement pour un cas mais pour mon deuxième cas je n'arrive pas à l'appliquer :

code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim date1 As Single
    Dim date2 As Single
    Dim fait As Integer
    date1 = CDate(Range("A12"))      ' date derniere réal
    date2 = CDate(Range("A16"))     ' date aujourd'hui
 
Dim nfait As Integer
nfait = Range("p" & Rows.Count).End(xlUp).Row
fait = Application.WorksheetFunction.CountIf(Range("p1:p" & nfait), "(=" >= " & date1) , (=" <= " & date2)")
 
Range("D7").Value = fait - 1

Si cela peux vous aider, pour filtrer les lignes que je souhaite compter j'utilisai ce filtre :

Code :

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

Selection.AutoFilter Field:=17, Criteria1:=">=" & date1, Criteria2:="<=" & date2

Uns fois de plus merci de prendre le temps de m'aider.

Cordialement

[casefayere]

Pour le second, je te propose autre chose, sans avoir besoin de filtrer

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
Sub Bouton_click()
Dim nfait As Integer, liste() As Variant, m
Dim date1 As Date
Dim date2 As Date
Dim fait As Integer
date1 = Range("A12")     ' date derniere réal
date2 = Range("A16")     ' date aujourd'hui
nfait = Range("p" & Rows.Count).End(xlUp).Row
liste = Range("p1:p" & nfait)
For Each m In liste()
   If m >= date1 And m <= date2 Then
      fait = fait + 1
   End If
Next
Range("D7").Value = fait - 1
End Sub

adaptes à tes besoins

[mercatog]

Si date1 en A12 et date2 en A16
par formule en D7

=SOMMEPROD((P : P>=A12)*(P : P<=A16))

par vba

Code :

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

Range("D7").value= Evaluate("=SUMPRODUCT((P:P>=A12)*(P:P<=A16))")

Edit: au lieu de prendre toute la colonne P tu peux la limiter à la plage de cellules effective

exemple

Code :

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

Range("D7").value= Evaluate("=SUMPRODUCT((P2:P100>=A12)*(P2:P100<=A16))")

[tools]

Bonsoir


Merci beaucoup casefayere de votre solution elle marche à merveille !!

Votre solution à résolu ma problématique.

Merci de votre rapidité pour me répondre et aussi d'avoir persisté à m'aider.

Encore un grand merci de m'apprendre des choses.

Merci à mercatog de votre réponse aussi.

Cordialement