Compter les cases de couleur

Résolu
marychamp Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
marychamp Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aimerais une formule qui m'indique ...
Par exemple: Case B2 = Inscrire (compter) le nombre de case jaune dans la colonne A en entier...

Est-ce que sa se fait ?

Merci

9 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

La couleur a t'elle été mise "à la main" ou bien provient elle d'une Mise en forme conditionnelle?

Cdlmnt
0
marychamp Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
D'une mise en forme
0
marychamp Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
non non dsl ... à la main
0
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
0
marychamp Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Je ne comprends pas trop ton lien...
Je crois que je n'ai pas la bonne formule, je m'y prends mal.
Mais moi je veux compter le nombre de case jaune (le fond de la case)

=NbreCellulesCouleur(A8:A437;6)
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Avec NB.SI tu peux dénombrer les cellules qui vérifient la même condition
Un exemple
https://www.cjoint.com/?3HCrEqgSAPu

Cdlmnt
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
marychamp Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Merci :)
0
marychamp Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Mita,

Je ne comprends pas trop ton lien...
Je crois que je n'ai pas la bonne formule, je m'y prends mal.
Mais moi je veux compter le nombre de case jaune (le fond de la case)

=NbreCellulesCouleur(A8:A437;6)

??
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Et Pour des couleurs mises "à la main" il faudra passer par une macro
https://www.cjoint.com/?3HCr1Ldz5wX

Cdlmnt
0
marychamp Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup pour ton aide ... mais malgré tout je n'y arrive pas ... :(

Je savais meme pas que je pouvais aller voir le module lol
Ensuite ... je dois copier quoi et le mettre dans ma formule ...?


Public Function NbCelCoul(plage As Range, cel As Range) As Long
Dim coul As Long, nbc As Long, c As Range
Application.Volatile
nbc = 0
coul = cel.Interior.ColorIndex
For Each c In plage
If c.Interior.ColorIndex = coul Then nbc = nbc + 1
Next c
NbCelCoul = nbc
End Function
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Une question . As tu fait fonctionner la macro dans mon exemple

1. Comme précisé dans l'exemple, la plage à traiter ne doit pas faire l'objet d'une MFC
2. Alt-F11 pour acceder à l'éditeur vba puis insertion/module pour créer le "Module 1"
3. Copier l'intégralité du code dans ce Module 1
4. Revenir dans la feuille Excel
5. La fonction NbCelCoul s'utilisera alors comme une fonction excel ordinaire dans la feuille
Dans mon exemple : A17=nbcelcoul(A2:A12;A5)
- la plage à traiter est A2:A12
- la couleur à dénombrer est celle de la cellule A5
- compte le nombre de cellules le la plage A2:A12 qui ont la couleur de fond de A5
C'est tout

RQ. Si tu es sous excel >=2007 tu dois enregistrer ton fichier avec l'extension .xlsm (pour accepter les macros)
0
marychamp Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Merci énormément pour ta patience :)

Merci beaucoup de ton aide :)
0