Recuperer le nombre de ligne d'un fltre dans une variable

Version imprimable

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:

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

bonsoir,

essayes avec variable range

Code:

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

14/01/2011, 11h59
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
14/01/2011, 12h01
tools

1 pièce(s) jointe(s)

Voici le fichier.

Pièce jointe 71757
14/01/2011, 14h15
casefayere
je n'ai pas encore regarder ton code mais j'ai mis "a adapter"

Citation:

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:

1 2 set fait = application.Range("P1").SpecialCells(xlCellTypeVisible) range("A3") = fait.count -1
je viens de regarder, sans filtre, essayes comme ça
Code:

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

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:

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:

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

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

Cordialement

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

Code:

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

14/01/2011, 22h31
mercatog

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

Citation:

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

par vba

Code:

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:

Range("D7").value= Evaluate("=SUMPRODUCT((P2:P100>=A12)*(P2:P100<=A16))")
14/01/2011, 23h00
tools

Remerciement

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