Calcul cellule de couleur Excel 2007

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2019

• #2

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.

 

Vote positif 0 Vote négatif

S

Stef62

XLDnaute Nouveau

• 23 Juillet 2019

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2019

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2019

• #5

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.

 

Vote positif 0 Vote négatif

S

Stef62

XLDnaute Nouveau

• 23 Juillet 2019

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2019

• #7

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2019

• #8

Re

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

VB:

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

 

Vote positif 0 Vote négatif

S

Stef62

XLDnaute Nouveau

• 23 Juillet 2019

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2019

• #10

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.

 

Vote positif 0 Vote négatif

S

Stef62

XLDnaute Nouveau

• 23 Juillet 2019

• #11

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 !

 

Vote positif 0 Vote négatif