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

Formule pour compter des cellules de fond gris

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ascal44
  • Date de début Date de début

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
A

ascal44

XLDnaute Occasionnel
Bonsoir , je cherche une formule pour compter les cellule de fond gris 25% de la plage D5:E60

Merci pour votre aide
 
Trier par date Trier par votes
Re : Formule pour compter des cellules de fond gris

Bonjour le forum,

Je te présente les codes suivants (fonction personalisée) à mettre dans la feuille concernée comme ceci:
1- cliques droit sur l'onglet de la feuille concernée
2- sélectionnes "Visualiser le code" et colles ces codes

Les codes:

Code: 
Function Compte_Couleurs(cell_range As Range, color_cell_index) As Integer
Dim rCell As Range
Dim cell_count As Integer
cell_count = 0
   For Each rCell In cell_range
    If rCell.Interior.ColorIndex = color_cell_index Then
         cell_count = cell_count + 1
    End If
   Next rCell
   Compte_Couleurs = cell_count
End Function

Function Color_index(cell_range As Range) As Integer
  
  Color_index = cell_range.Interior.ColorIndex
           
End Function

Dans l'une des cellules de la feuille (où tu veut mettre le resultat demandé) écrire la formule suivante:

= compte_couleurs(D5:E60;15)


Cordialement
 
Vote positif 0 Vote négatif
Re : Formule pour compter des cellules de fond gris

Bonjour à tous, bonjour job75

job75 à dit:
Bonsoir ascal44, hbenalia, Habitude,
Pour pouvoir être utilisées dans la feuille de calcul, les 2 fonctions doivent être placées dans un Module, et non pas dans le code de la feuille.
A+
Cliquez pour agrandir...


Merci pour la rectification, il est vrai qu'il faut placer ces codes dans un module... Sinon le code donnerait l'erreur #NOM? comme précisé plus haut...

Le nombre 15 dans la formule correspond au Gris 25%... Le Gris 40% c'est le 48 , le Gris 50% c'est le 16 et le Gris 80% c'est le 56...

Et encore merci Job75...

NB: Chaque fois qu'on change les couleurs des cellules on est tenu à valider de nouveau la fonction dans la cellule...


Cordialement

Cordialement
 
Vote positif 0 Vote négatif
Re : Formule pour compter des cellules de fond gris

Bonjour et merci à tous.
Désolé pour le retard mai j'ai eu des soucis avec ma nouvelle freebox.

Comment fait on pour valider la fonction dans la cellule pour avoir le nouveau comptage?

Y aurait il un moyen pour dès que l'on grise une cellule le comptage se fasse ?

Merci
 
Vote positif 0 Vote négatif
Re : Formule pour compter des cellules de fond gris

Bonjour le forum, bonjour ascal44,



La validation de la fonction se fait par le changement du contenu d'une cellule quelconque de la feuille, ou tout simplement, en selectionnant la cellule contenant cette fonction, on appuie sur la touche F2 puis sur ENTREE...

Pour le comptage automatique, je ne vois pas de solutions pour le moment et j'y travaille, en espérant que l'un des piliers du forum trouve la solution avant...

Cordialement
 
Vote positif 0 Vote négatif
Re : Formule pour compter des cellules de fond gris

Bonjour le fil,

ascal44 à dit:
Y aurait il un moyen pour dès que l'on grise une cellule le comptage se fasse ?
Cliquez pour agrandir...

Ce n'est pas possible, car l'application d'une couleur ne crée aucun évènement.

Par contre on peut mettre au début de la fonction Compte_Couleurs l'instruction :

Application.Volatile

Alors quand on appuie sur la touche F9 la fonction est recalculée.

A+
 
Vote positif 0 Vote négatif
Re : Formule pour compter des cellules de fond gris

Bonjour à tous, bonjour job75

job75 à dit:
Bonjour le fil,

Par contre on peut mettre au début de la fonction Compte_Couleurs l'instruction :

Application.Volatile

Alors quand on appuie sur la touche F9 la fonction est recalculée.
A+
Cliquez pour agrandir...

Bonne idée job75 ... J'étais certain que quelqu'un trouverait une solution à ce problème...

On peut aussi ajouter ce petit code au "code de la feuille" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Maintenant, il sufit de sortir de la cellule à laquelle on a appliqué le fond Gris à 25% pour que la fonction est recalculée.


Bonne soirée à tous
 
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

L
  • Question Question
XL 2021 RechercheX et Mise en forme conditionnelle
2
Réponses
17
Affichages
410
Lucie85
L
B
  • Résolu(e)
Autres Changer la couleur de fond de cellules.
Réponses
4
Affichages
275
BIBIX
B
T
  • Résolu(e)
XL 2021 Charte graphique ou template graphique
Réponses
1
Affichages
234
Nain porte quoi
S
  • Résolu(e)
Microsoft 365 Fond coloré pour certaines dates de calendrier
Réponses
6
Affichages
218
Sblm
S
W
  • Question Question
Microsoft 365 compter le nombre d'articles expédiés un jour donné
Réponses
2
Affichages
275
Wilmouth Michel
W
L
  • Question Question
Microsoft 365 Graphique
Réponses
3
Affichages
208
djidji59430
R
  • Question Question
Autres MOYENNE en supprimant les #N/A et les cases affichées vides sous ""
Réponses
12
Affichages
377
job75
C
  • Question Question
XL 2019 Clic cellule
Réponses
5
Affichages
197
Caller
C
C
  • Résolu(e)
XL 2016 Macro permettant d'automatiser le tri d'un tableau Excel et de différencier les lignes
Réponses
5
Affichages
249
Chris1263
C
B
  • Résolu(e)
XL 2021 compter des cellules de couleurs
2 3 4
Réponses
45
Affichages
1 K
brunocean
B
G
  • Résolu(e)
XL 2021 Transformer une formule en vba
2
Réponses
20
Affichages
1 K
kiki29
M
  • Résolu(e)
Microsoft 365 Souci de mise en forme conditionnelle - prend 2 conditions
Réponses
3
Affichages
230
Maya3375
M
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
267
sylvanu
P
  • Question Question
Microsoft 365 Exécution d'une formule en VBA
Réponses
9
Affichages
265
sylvanu
S
  • Résolu(e)
XL 2021 Compter nombre de Week end en repos dans planning
Réponses
3
Affichages
346
stephane bouttier
S
B
  • Question Question
XL 2021 Calculer le nbr de produits vendus / an
Réponses
2
Affichages
361
BSF
B
G
  • Question Question
XL 2019 Somme de cellules non vides sur une période
Réponses
3
Affichages
353
job75
  • Résolu(e)
XL 2013 (RESOLU) Gestion automatique des indications de saisie dans les cellules
Réponses
2
Affichages
495
chaelie2015
G
  • Question Question
XL 2010 formule a copier sur differente cellules
Réponses
3
Affichages
170
fanfan38
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
410
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…