bonjour,
je réalise un fichier excel, dans le but de réaliser des stats , je n'arrive pas à réaliser une chose :
Nom : fichier excvel.JPG
Affichages : 315
Taille : 89,2 Ko

je selectionne une équipe, quand j'appuie sur "go" , dans ma feuille2, les éléments sont filtrés, en fonction de la valeur selectionné en B4:

Nom : filtre ok.JPG
Affichages : 263
Taille : 20,7 Ko

ce que j'aimerais faire c'est d'une part, compter le nombre total de ligne :

Nom : total.JPG
Affichages : 305
Taille : 63,4 Ko

donc 10 lignes puis dans la cellule du dessous, récupérer le nombre de valeur filtré : par exemple pour l'équipe 15, on en a 4:

Nom : flitre equipe 15.JPG
Affichages : 266
Taille : 21,4 Ko

voici mon code vba qui me permet de réaliser mon filtre quand j'appuie sur "go" :

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
 
Sub Macro3()
' Macro3 Macro
 
'MsgBox Sheets("Chesk-list").Rows.Count
'sgBox Sheets("Chesk-list").Cells(Rows.Count, 1).End(xlDown).Row
 
 
    'page ds avec completude
 
    Sheets("Chesk-list").Select
    Range("B4").Select
    'valeurCherchée = Range("B5")
    Select Case Range("B4")
        Case "Equipe_15"
            valeurCherchée = "Equipe_15"
 
        Case "Equipe_20"
            valeurCherchée = "Equipe_20"
               Case "Equipe_15"
            valeurCherchée = "Equipe_15"
 
       Case "Equipe_16"
            valeurCherchée = "Equipe_16"
 
       Case ""
            valeurCherchée = ""
        End Select
 
    Sheets("feuille2").Select
    ActiveSheet.Range("$A$1:$B$5").AutoFilter Field:=2, Criteria1:=valeurCherchée, _
        Operator:=xlAnd
 
 
End Sub
Merci par avance pour vos lumières.