Cellule de couleur

pferschc · 20 Juillet 2004

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 · 20 Juillet 2004

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 · 20 Juillet 2004

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

Cellule de couleur

pferschc

Guest

yvon51

Guest

Jiboune

Guest

Discussions similaires