Somme de police rouge, bleue et verte [Résolu/Fermé]

Signaler
-
Messages postés
54290
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 juillet 2021
-
Bonjour,

je debute et je suis nulle pour les formules
j'ai un tableau excel de 4 colonnes
dans chaque colonne j'ai des chiffres en rouge, en bleu et en vert
je voudrais que les chiffres s'additionnent automatiquement dans 3 cellules

si c'est possible je voudrais aussi la variante qui serait d'additionner cette fois d'additionner des cellules de plusieurs couleurs
Merci

8 réponses

Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
875
Salut le forum

Une fonction personnalisée (Il en existe plusieurs variantes)

Code à mettre dans un module VBA
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function

Ou encore sans connaitre la valeur de la palette des couleurs
Function SumByColor(PlageEntree As Range, CouleurPlage As Range) As Double 
Dim Cell As Range, TempSum As Double, ColorIndex As Integer 
Application.Volatile
      ColorIndex = CouleurPlage.Cells(1, 1).Interior.ColorIndex 
      TempSum = 0 
      On Error Resume Next 
      For Each Cell In PlageEntree.Cells 
            If Cell.Formula < > "" Then 
                  If Cell.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + _ 
                    Cell.Value 
            End If 
      Next Cell 
      On Error GoTo 0 
      Set Cell = Nothing 
      SumByColor = TempSum 
End Function

Mytå
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

je débute donc les exemples que vous me donnez je ne sais pas bien comment les utiliser

est-ce que je dois mettre tout cela dans ma cellule?

je crois bien que j'ai besoin d'aide
merci
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
875
Re le forum

Code à mettre dans un module VBA

C'est de la programmation, qu'il faut mettre dans un module

Merci de préciser la version d'Excel que tu utilises.

Mytå
j'utilise la version 2003
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
875
Re le forum

Un fichier exemple : Nbre_Couleur.xls

Mytå
Messages postés
54290
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 juillet 2021
16 271
Si tu as utilisé la Mise en Forme Conditionnelle pour colorer tes cellules, alors on peut s'en servir pour tes additions.

Sinon, il faudra demander à des spécialistes de VBA de t'écrire une macro. Mais sauras-tu t'en servir et l'adapter si le besoin s'en fait sentir ?
ok je ne peux pas additionner des chiffres de couleur différente mais d'après ce que tu me dis, si j'utilise la mise en forme conditionnelle il y a moyen.
donc au lieu de mettre des chiffres, je vais mettre des cellules de 3 couleurs différentes pour mes 3 critéres.
Dans mon tableau j'ai des heures supp, des heures à déduire et des heures qui sont prévues dans le contrat (concerne les heures de vacation d'une personne sous contrat).
peut-tu m'expliquer comment faire la mise en forme additionnelle, pour pouvoir faire ensuite les additions (je ne sais pas)
merci
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 171
Bonjour tou(te)s
Attention, la détection des couleurs avec les mise en formes conditionnelles sont plus difficile à détecter, si tu a mis des couleurs dans les cellules vaux mieux les laisser comme ça.
Ensuite avec une macro ce n'est pas compliquer de faire tes sommes.
Tu dis..
Messages postés
17408
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 juillet 2021
4 668
Salut,

Je pense que le mieux serait d'avoir à disposition ton fichier afin de voir sa structure et d'adapter nos propositions.
A joindre avec un de ces deux liens

https://www.cjoint.com/ ou http://www.cijoint.fr/
Voici le lien pour consulter mon fichier
http://www.cijoint.fr/cjlink.php?file=cj201012/cijeUFYol8.xls

j'ai donc un tableau dans lequel je dois utiliser 3 couleurs pour mes 3 critéres
et en fin de mois faire le total pour chacun et un savoir le nbr d'heures supp etc...
merci
Messages postés
17408
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 juillet 2021
4 668
Re,

Tu aurais pu mettre quelques valeurs de couleurs rouge, bleu et verte dans tes tableaux que l'on comprenne, pour ma part je ne suis pas devin et le cerveau lent en cette période de fêtes
voici le nouveau lien avec un tableau avec des valeurs
http://www.cijoint.fr/cjlink.php?file=cj201012/cijr16e0d0.xls
comme je l'ai dit je voudrais faire automatiquement la somme des cellules rouges, vertes et bleues
cad je voudrais que dès que j'ajoute une cellule de couleur l'addition se fasse automatiquement
merci
Messages postés
54290
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 juillet 2021
16 271
Salut gloubi.

Réponse, sans VBA ni macro, à ton post #9 (30/12/10 15:28) :

En C34 taper C ; en D36 taper S ; en E38 taper D.
Sélectionner toute la feuille ; aller dans Mise en forme conditionnelle.
Condition 1 = Appliquer une mise en forme uniquement aux cellules contenant valeur / égale à / C / Format Remplissage bleu
Condition 2 = Appliquer une mise en forme uniquement aux cellules contenant valeur / égale à / S / Format Remplissage rouge
Condition 3 = Appliquer une mise en forme uniquement aux cellules contenant valeur / égale à / D / Format Remplissage vert,

Enlever toutes les couleurs des cellules à partir de B6,
Saisir la lettre C dans les cellules B7, B10, B11, B16, B17, B18, C21, C22, D23, D24
Saisir la lettre D dans les cellules C13, E27, E28
Saisir la lettre S dans les cellules B6, C9, D12, D15, E19

Calculer le nombre de cellules de chaque couleur avec
en G34 la formule =NB.SI($B$6:$E$31;"C")
en H36 la formule =NB.SI($B$6:$E$31;"S")
en I38 la formule =NB.SI($B$6:$E$31;"D")

Cordialement,
merci beaucoup
une explication claire et simple pour quelqu'un qui n'y a jamais touché
c'est super ça marche
Messages postés
54290
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 juillet 2021
16 271
Alors tant mieux !

Pense à mettre les 3 lettres dans la légende aussi ...

Et conserve bien ces deux procédures ; tu auras encore besoin de faire des MFC (et pas seulement dans des plannings), et aussi de faire des décomptes de valeurs dispersées.

Bonne année à toi, sur CCM et dans la vraie vie !
Messages postés
17408
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 juillet 2021
4 668
Re,

Je suis de retour, je vois que la discussion à progressée et peut être j'arrive trop tard, sur le fichier mois de novembre et décembre deux propositions à tester

https://www.cjoint.com/?0mEtaPhONay

pour automatiser la mise à jour du résultat une ligne de code sera à ajouter dans la thiswokbook

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
Messages postés
17408
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 juillet 2021
4 668
J'avais zappé qu'il s'agissait de police de couleur et non de fond de cellule, voila les codes modifiés

https://www.cjoint.com/?0mEvw8PE76W
ça ne marche pas,
j'ai dans ma cellule C34: #NOM? (erreur due à un nom non valide)
que ce soit avec l'exemple de la police de couleur ou celui de la cellule de couleur
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
875
Re le forum

Gloubi, tes macros sont bien activées à l'ouverture.

Regarde du côté de la sécurité aussi des macros

Onglets Outils > Macro > Sécurité coche Niveau de sécurité moyen.

Mytå
Messages postés
54290
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 juillet 2021
16 271
Bonjour.

On voit bien que tu débutes sur Excel : Il n'existe pas de fonction permettant d'additionner le contenu de cellules en fonction de leur couleur.

Cordialement.
Messages postés
54290
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 juillet 2021
16 271
Dernière question : Une cellule ne peut avoir plusieurs couleurs à la fois ...