Discussion :

[Maxxime71]

Bonjour,
J'ai un tableau de la forme:
Mr A 5 (bleu)
Mr A 8 (bleu)
Mr A 11 (rouge)
Mr B 6 (rouge)
Mr B 7 (bleu)

J'aimerais sommer le nombre de bleu chez Mr A, le nombre de rouge chez Mr A, le nombre de bleu chez Mr B, le nombre de rouge chez Mr B.
Pour sommer les couleurs, j'ai récupérer un code VBA, permettant de sommet toute les cases de la même couleurs ensemble.
Cette fonction s'appelle SOMMESICOULEUR.
Pour sommer tout les nombres de Mr A j'aurai fais =SOMMEPROD(SOMME.SI("plage des Mr";"Mr A";"plage de somme" )))
Or, j'aimerai ajouter mon SOMMESICOULEUR afin de détailler,

Je joins mon code VBA pour SOMMESICOULEUR:

Option Explicit

Function SOMMESICOULEUR(cellules As Range)
Application.Volatile

Dim total As Double
Dim cellule As Range

For Each cellule In cellules
If cellule.Interior.Color = Application.Caller.Interior.Color Then
total = total + cellule
End If
Next
SOMMESICOULEUR = total
End Function

[78chris]

Bonjour

C'est une mauvaise pratique d'utiliser la couleur comme information. Elle doit servir à mettre en évidence pas à remplacer les valeurs

Un changement de couleur n'est pas un évènement détecté par Excel...

[Maxxime71]

Bonjour

C'est une mauvaise pratique d'utiliser la couleur comme information. Elle doit servir à mettre en évidence pas à remplacer les valeurs

Un changement de couleur n'est pas un évènement détecté par Excel...

Bonjour,
auriez vous une idée de comment je peux faire ?