Calcul d'une somme par couleur

[Mandyyy]

Bonjour,

J'aimerais calculer une somme tout dépendamment de la couleur d'une cellule.
Le pourquoi de la couleur n'est pas créer par Exel mais par moi. C'est un fichier comptable pour concilliation, quand une dépense est passée, je la met moi même en couleur. J'aimerais que le total de la semaine se calcule tout seul en prenant compte de la couleur de la cellule.
Merci à l'avance.

 

[flyonets44]

Re : Calcul d'une somme par couleur

bonsoir
avec cette fonction

Function SommeParCouleur(Plage As Range, nColorValue As Long) As Double
' Totaliser des cellules par couleur de fonds
Dim Total As Double, Rg As Range
For Each Rg In Plage
If Rg.Interior.ColorIndex = nColorValue And _
IsNumeric(Rg) Then
Total = Total + Rg.Value
End If
Next
SommeParCouleur = Total
End Function
Cordialement
Flyonets