Somme selon couleur cellule

Bonjour à tous,

J'aimerais obtenir la somme d'une plage de donnée selon la couleur de fond de la cellule.

Voici un fichier avec plus d'informations

Bonjour

Solution présentée par Amadeus sur ce forum sous la rubrique :

Créer formule pour récupérer code couleur d'une cellule

Cordialement

FINDRH

Désolé, mais je ne vois vraiment pas en quoi ça peut m,aider. Je ne cherche pas à obtenir le code de couleur je veux calculer une somme selon les différentes couleur.

Bonjour a vous deux.

Un essai.

Bonjour,

Une proposition avec une fonction de feuille personnalisée (VBA)

Option Explicit
Public Function Somme_couleur(CellColor As Range, SumRange As Range)
Dim mycell As Range
Dim iCol As Integer
Dim myTotal
    iCol = CellColor.Interior.ColorIndex
    For Each mycell In SumRange
        If mycell.Interior.ColorIndex = iCol Then
            myTotal = WorksheetFunction.Sum(mycell) + myTotal
        End If
    Next mycell
    Somme_couleur = myTotal
End Function
Public Function Compte_couleur(CellColor As Range, SumRange As Range)
Dim mycell As Range
Dim iCol As Integer
Dim myTotal
    iCol = CellColor.Interior.ColorIndex
    For Each mycell In SumRange
        If mycell.Interior.ColorIndex = iCol Then
            myTotal = 1 + myTotal
        End If
    Next mycell
    Compte_couleur = myTotal
End Function

Merci beaucoup, ça fonctionne à merveille.