Somme de police rouge, bleue et verte

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å

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 ?

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

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

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,

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.

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.