OVH Cloud OVH Cloud

addition+couleur

1 réponse
Avatar
oliver
Bonjour,
je souhaiterais créer une fonction qui addition des cellules de trois
couleurs différentes.
Merci


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.516 / Virus Database: 313 - Release Date: 01/09/03

1 réponse

Avatar
AV
Une fonction perso (index des couleurs à adapter) :
Function SOM3coul(plage As Range)
Application.Volatile
For Each c In plage
If c.Interior.ColorIndex = 34 Or _
c.Interior.ColorIndex = 35 Or _
c.Interior.ColorIndex = 36 Then SOM3coul = SOM3coul + 1
Next
End Function

Problème majeur de ce type de fonction (calcul) :
Le formatage (ultérieur à la mise en place de la formule) des cellules par menu
"Format" n'entrainera pas de recalcul de la fonction donc il faudra recalculer
manuellement par F9 !
Si le "barbouillage" des cellules correspond à des critères autres que
esthétiques, comme la valeur de leur contenu (à toi de dire !), une fonction
comme SOMMEPROD devrait très bien faire l'affaire pour arriver à tes fins !

AV

"oliver" a écrit dans le message news:
3f751fdb$0$2783$
Bonjour,
je souhaiterais créer une fonction qui addition des cellules de trois
couleurs différentes.
Merci


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.516 / Virus Database: 313 - Release Date: 01/09/03