Cellule de couleur

[pferschc]

J'aimerais faire la somme des cellules colorées : ex :nombre de cellules oranges, nombre de cellules jaunes, etc...

et non la somme des valeurs contenues dans les cellules de la même couleur.

Merci de votre réponse.

 

[yvon51]

bonjour le forum

comment les cellules sont-elles colorées?
est-ce que pour une couleur définie (expl jaune) la valeur est toujours la même?

yvon

 

[Jiboune]

Essaie ca (ici, juste pour compter les cells noires, mais tu peux l'arranger...)

Function NbCelluleCouleur(Zone, IndexCouleur As Integer)

Dim MaCellule
Application.Volatile

NbCelluleCouleur = 0
For Each MaCellule In Zone
If MaCellule.Interior.ColorIndex = Noir Then NbCelluleCouleur = NbCelluleCouleur + 1
Next MaCellule
End Function