somme par couleur

phaum

XLDnaute Junior
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
 

Pièces jointes

  • MARION_20050912145046.zip
    7 KB · Affichages: 30

JeanMarie

XLDnaute Barbatruc
Bonjour

Modifie le code ainsi
Code:
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
 

Statistiques des forums

Discussions
312 920
Messages
2 093 640
Membres
105 768
dernier inscrit
Luc Juvénal YAMBASSA