Bonjour,
Je souhaiterais sommer mes cellules suivant un fond de couleur. Pour l'instant ça marche pas trop mal avec la formule ci-dessous. Mais j'aimerais maintenant que lorsque je change la couleur d'une cellule ma somme se mette automatiquement à jour.
Est ce possible?
Merci d'avance si vous trouver une solution.
Option Explicit
Function Sum_color(plage As Range, couleur As Integer) As Double
Dim r As Range, nb As Double
Application.Volatile
nb = 0
For Each r In plage
If r.Interior.ColorIndex = couleur Then nb = nb + r.Value
Next
Sum_color = nb
End Function
Function cellcouleur(c As Range)
cellcouleur = c.Interior.ColorIndex
End Function
Je souhaiterais sommer mes cellules suivant un fond de couleur. Pour l'instant ça marche pas trop mal avec la formule ci-dessous. Mais j'aimerais maintenant que lorsque je change la couleur d'une cellule ma somme se mette automatiquement à jour.
Est ce possible?
Merci d'avance si vous trouver une solution.
Option Explicit
Function Sum_color(plage As Range, couleur As Integer) As Double
Dim r As Range, nb As Double
Application.Volatile
nb = 0
For Each r In plage
If r.Interior.ColorIndex = couleur Then nb = nb + r.Value
Next
Sum_color = nb
End Function
Function cellcouleur(c As Range)
cellcouleur = c.Interior.ColorIndex
End Function