Problème Somme par couleur nuance

[jbpfohl]

Bonjour à tous!

J'ai un petit problème lorsque j'utilise la fonction suivante qui devrait me permettre de "sommer" en fonction de la couleur de la cellule:

Function SommeCouleur(Zone As Range, CRef As Range, X, Y)
Dim c, Cel, S
c = CRef.Interior.ColorIndex
S = 0
For Each Cel In Zone
If Cel.Interior.ColorIndex = c Then
S = S + Cel.Offset(Y, X)
End If
Next
SommeCouleur = S
End Function


La fonction marche très bien lorsque le champ comprend des couleurs très distinctes (ex: rouge et jaune).

En revanche, lorsque plusieurs nuances d'une même couleur sont impliquées, mes valeurs sont comptés plusieurs fois...
J'utilise une 1(aine de couleurs et elles sont toutes issues du menu "remplissage" (pas de nuances perso).

Si vous avez une idée pour m'expliquer ces écarts je suis preneur.

Merci d'avance!

 

[Modeste geedee]

Re : Problème Somme par couleur nuance

Bonsour@
Tu ne nous précise pas ta version Excel...
Mais. Tu parles de nuances : j'en déduis que tu utilises une version > 2007
La table des colorindex est limitée a 56 couleurs ou nuances différentes !
S'il s'agit de cellules, modifie ton code pour distinguer les 16 millions et ... de couleurs possibles :
Cref.interior.color et cel.interior.color

 

[jbpfohl]

Re : Problème Somme par couleur nuance

Super!
Ça m'a l'air de marcher!

Merci et bonne année!