faire la somme des cellules de la meme couleur

Bonsoir à tous

Il y a celle-ci qui permet, en plus, de choisir la couleur :
Code de la fonction SumParCouleur

Function SumParCouleur(PlageEntree As Range, CouleurPlage As Range) As
Double

Dim Cell As Range, TempSum As Double, ColorIndex As Integer

ColorIndex = CouleurPlage.Cells(1, 1).Interior.ColorIndex

TempSum = 0

On Error Resume Next

For Each Cell In PlageEntree.Cells

If Cell.Formula <> "" Then

If Cell.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + Cell.Value

End If

Next Cell

On Error GoTo 0

Set Cell = Nothing

SumParCouleur = TempSum

End Function

Les paramètres de la fonction

SumParCouleur Permet de sélectionner la plage à calculer.

CouleurEntree Sélectionne la cellule servant de référence pour la couleur du
motif.

A utliser par : =SumParCouleur(Plage;CouleurEntree)

brunelose wrote:

Pouvez vous m'aider a faire la somme des cellules d'une plage en
indiquant pour critere la couleur de remplissage.
Merci a vous

Et que se passe-t-il si l'on change une couleur ?
Le résultat de la somme change-t-il ?
Hum... Faire une petite recherche sur le forum...

AV