somme par couleur

[phaum]

Bonjour, j'espere que tout le monde va bien
je complique ce qui a été fait sur le fichier Marion.
Je souhaite faire la somme non pas sur les champs où il y a les chiffres à additionner, mais qu'il le fasse en fonction d'autres champs colorisés.Merci de votre aide [file name=MARION_20050912145046.zip size=7131]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MARION_20050912145046.zip[/file] J'ai indiqué le résultat que je souhaiterais obtenir.
A+ et encore merci

 

[Raphael]

Salut,
pourquoi pas ajouter une colonne dans laquelle tu entres un critère du genre 0/1 ou A/B... et tu somme ensuite les '0' et les '1'....

Ca marche même si c'est pas top....
Qui dit mieux??

 

[JeanMarie]

Bonjour

Modifie le code ainsi

Function ColorCountIf(SearchArea As Object, BgColor As Range, ZoneAdd As Byte) As Double

Dim MaCoul As Variant
Dim cell As Range

Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + cell.Offset(0, ZoneAdd)
Next cell

End Function

La formule inscrite dans la cellule contient un argument de plus.
=ColorCountIf($A$2:$A$22;E10;2)
le 2 indique le nombre de colonnes de décalage par rapport à la plage indiquée.

Attention aussi au type de la valeur retournée.

@+Jean-Marie

 

[phaum]

Super Jean-Marie
Merci beaucoup :woohoo: