Calcul cellule de couleur Excel 2007

[Stef62]

Bonjour,

J'utilise Excel, je n'arrive pas à trouver la formule de calcul pour : Compter des cellules de couleur.
J'ai donc compter à la main mais je voudrais automatiser le calcul. ( pour ne pas me retaper le comptage à la main à chaque changement)
Je vous joint mon fichier Excel de base, pour le reste je pense m'en sortir.

En J29 le total des 3, en K29 le total des 4 et ainsi de suite, ....

D'avance merci pour vos réponses apportées.
Stéphane

 

[Staple1600]

Bonjour le fil, Stef62

Stef62
Regarde en bas de page, dans les Discussions similaires
Tu trouveras de nombreux exemples (car ce sujet a été multi-traité sur le forum)
Bonne lecture et bons essais.

 

[Stef62]

Merci Staple1600,
J'avais déjà parcouru le forum et la recherche mais j'ai trouvé plein de chose et essayer multi script vba, ect mais rien ne fonctionne
C'est pour cela que j'ai créé cette discution

 

[Staple1600]

Re

Et pourtant, elle tourne

Une exemple de discussion avec un code VBA qui marche

https://www.excel-downloads.com/thr...la-couleur-de-la-cellule.229810/#post-1464253

 

[Staple1600]

Re

Une autre (plus simple) de mapomme

https://www.excel-downloads.com/threads/additioner-des-cellules-colorees-en-vba.190305/#post-1181190

Avec un fichier exemple

Tu verras si tu l'ouvres (le fichier) , que là aussi, cela fonctionne.

 

[Stef62]

Merci Staple1600
J'ai bien essayer le code VBA et modifier la formule pour mon tableau mais j'ai toujours #VALEUR! dans ma cellule de résultat.
Je ne trouve pas la solution

 

[Staple1600]

Re

J'ai adpaté le code de mapomme pour ton fichier
(et cela semble bon mais il faudra enregister le classeur en *.xlsm pour conserver les macros

Function SommeCouleur(Zone As Range, CommeCellule As Range)
Dim xCell As Range, Couleur, i&
i = 1
Couleur = CommeCellule(1, 1).Interior.Color
For Each xCell In Zone
If xCell.Interior.Color = Couleur Then
SommeCouleur = SommeCouleur + i
End If
Next xCell
End Function

ET j'ai par exemple saisi en M29, la formule suivante
=sommecouleur($B$3:$Q$24;M27)
qui renvoie bien 13

 

[Staple1600]

Re

D'ailleurs, il serait plus correct de nommer ici cette fonction

Function NBCOULEUR(Zone As Range, CommeCellule As Range)
Dim xCell As Range, Couleur, i&
i = 1
Couleur = CommeCellule(1, 1).Interior.Color
For Each xCell In Zone
If xCell.Interior.Color = Couleur Then
NBCOULEUR = NBCOULEUR + i
End If
Next xCell
End Function

Avec cette formule en J29 (recopiée vers la droite jusqu'en N29)
=NBCOULEUR($B$3:$Q$24;J27)+NBCOULEUR($C$28:$H$29;J27)
J'obtiens les mêmes nombres que dans ton fichier et un total de 50

 

[Stef62]

Super Merci !
Quel erreur de débutant je faisait, j'enregistrais en *.xls
J'ai donc recopier la formule de calcul dans les cellules de résultat
Je trouve des erreurs de comptage en J29 =>1 au lieu de 2, K29=>13 au lieu de 15, L29=>17 au lieu de 19
je comprend pas pourquoi

 

[Staple1600]

Re

Il faut utiliser la formule du message#8
Avec celle-ci comme je le disais je trouve les mêmes résultats que tu as entré manuellemnt.

 

[Stef62]

Oups
Je n'ai pas vu ta réponse;
C'est corrigé comme tu me le soumets
Effectivement c'est plus correct.
MERCI énormément !