Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Compter un critère après avoir appliquer un filtre

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

maninwhite

XLDnaute Occasionnel
Bonjour à toutes et à tous

Je cherche à compter le nombre de fois que le mot "test" apparaît dans une colonne filtrée et à reporter ce nombre dans une cellule, mais la méthode countif ne marche pas avec des filtres car elle compte aussi dans les cellules cachées.
J'ai également essayer subtotal ou d'autres mais rien à faire et les sujets déjà présents sur le net ne m'ont pas aidés.

Je précise que je cherche à le faire en VBA et non pas en formule.

Code: 
Worksheets("report").Range("A:A").AutoFilter Field:=11, Criteria1:= _
        "Logistique"
Worksheets("Statistiques FY 1314").Range("B6").Value = Application.WorksheetFunction.CountIf(Worksheets("report").Columns("E:E"), "Test")

Merci d'avance pour votre aide
 
Trier par date Trier par votes
Re : Compter un critère après avoir appliquer un filtre

Merci JB mais cette méthode m'impose de mettre une formule dans une cellule et j'aimerai que tout soit transparent donc avoir des cellules vides niveau formules.
 
Vote positif 0 Vote négatif
Re : Compter un critère après avoir appliquer un filtre

Sur l'exemple, on obtient en O2,par VBA, le nombre de Dupont en colonne A sur une zone filtrée.

Code: 
Sub essai()
  [O2] = NBSIVisibles(Range("A2:A25"), "Dupont")
End Sub

Function NBSIVisibles(champ As Range, valeur)
  Application.Volatile
  For Each c In champ
     If Not c.EntireRow.Hidden And Not c.EntireColumn.Hidden Then
          If c.Value = valeur Then t = t + 1
     End If
  Next c
  NBSIVisibles = t
End Function

JB
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Compter un critère après avoir appliquer un filtre

Nickel JB, en adaptant le code à mon fichier, cela marche parfaitement bien. Merci

Par contre quand T = 0, la cellule reste vide.

J'ai donc ajouter dans la fonction
Code: 
If T = 0 Then
  NBSIVisibles = 0
  End If

Sauf que j'utilise NBSIVisibles pour plusieurs calculs donc si un est égal à 0 tous le sont.

Une idée?
 
Vote positif 0 Vote négatif
Re : Compter un critère après avoir appliquer un filtre

Bonjour,

????

Code: 
Sub essai()
  [O2] = NBSIVisibles(Range("A2:A25"), [O1])
  [P2] = NBSIVisibles(Range("A2:A25"), [P1])
  [Q2] = NBSIVisibles(Range("A2:A25"), [Q1])
End Sub

Function NBSIVisibles(champ As Range, valeur)
  Application.Volatile
  t = 0
  For Each c In champ
     If Not c.EntireRow.Hidden And Not c.EntireColumn.Hidden Then
          If c.Value = valeur Then t = t + 1
     End If
  Next c
  NBSIVisibles = t
End Function

JB
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
648
Usine à gaz
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
4 K
Xender
X
Z
  • Question Question
XL 2019 Probleme Rechercher avec copie et offset en VBA
Réponses
1
Affichages
534
vgendron
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
G
  • Résolu(e)
XL 2016 VBA : Copie d'une ligne après application d'un filtre
Réponses
7
Affichages
1 K
gfgghbhg
G
H
  • Question Question
XL 2019 Filtrer un tableau après avoir cliqué sur un lien hypertexte
Réponses
6
Affichages
2 K
Hebus15
H
C
  • Question Question
XL 2019 Filtrage de données en VBA
Réponses
11
Affichages
2 K
Phil69970
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
S
  • Résolu(e)
Autres excel 2021 VBA : Comment modifier un choix dans un segment d'un TCD (annuler & sélectionner) ?
Réponses
1
Affichages
4 K
Scoub
S
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
L
  • Question Question
Microsoft 365 Compter et afficher un numéro correspondant à un filtre sélectionné
Réponses
2
Affichages
1 K
Legendre
L
V
  • Question Question
Microsoft 365 Coller toutes les 4 colonnes en gardant les valeurs précédemment copiées
Réponses
5
Affichages
1 K
Vince78740
V
L
  • Question Question
XL 2013 Trouver le nombre de ligne restant d'une colonne après avoir fait un filtre
Réponses
6
Affichages
1 K
chris
L
  • Question Question
XL 2019 AIDE SUR UNE PREMIÈRE MACRO
Réponses
0
Affichages
984
lycan54
L
P
  • Question Question
Filtre auto avec critère non existant vba
Réponses
2
Affichages
3 K
popcorn
P
C
  • Question Question
XL 2016 Lignes vides non affichées après application d'un filtre (macro)
Réponses
7
Affichages
1 K
Cydonia37
C
P
  • Question Question
XL 2016 simplifier avec boucle la macro de l'enregistreur de macro
2
Réponses
23
Affichages
3 K
PASCAL84810
P
S
  • Question Question
XL 2013 VBA critère de filtre dynamique
Réponses
2
Affichages
2 K
sardaucar
S
S
  • Question Question
[VBA] Filtrage d'une colonne en VBA
Réponses
9
Affichages
2 K
SkinDash
S
M
  • Question Question
Simplification code pour filtre/statiqtiques
Réponses
2
Affichages
783
maninwhite
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…