somme couleur actualisée

[28gaëlle]

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

 

[jm-sta]

Re : somme couleur actualisée

merci pour l'exemple,
bien que le formules soient efficaces,
je n'y ai pas trouvé la macro!!😕😕
est elle quelque part?


merci encore

 

[PascalXLD]

Re : somme couleur actualisée

Re

oui il faut ouvrir VBE (Alt + F11) et elle est dans le module1

 

[jm-sta]

Re : somme couleur actualisée

re,

merci de la réponse😀

peux t on comptabiliser le nombre de cellule de couleur sans comptabiliser la valeur de ces cellules?😕😕

merci

 

[PascalXLD]

Re : somme couleur actualisée

Re

oui

dans la macro tu remplaces

If r.Interior.ColorIndex = couleur Then nb = nb + r.Value

par

If r.Interior.ColorIndex = couleur Then nb = nb + 1

 

[jm-sta]

Re : somme couleur actualisée

merci

mais, mon pb, c'est que je ne parviens pas à mettre ce module dans un nouveau classeur!!

😕😕

encore un peu d'aide serait la bienvenue!!

merci

 

[PascalXLD]

Re : somme couleur actualisée

Re

Une fois que tu es dans VBE et que tu vois ton classeur avec tes feuilles et le ThisWorkbook il suffit de selectionner une feuille et de faire un clic droit et insertion > module

 

[jm-sta]

Re : somme couleur actualisée

une affaire rondement menée,😉

super
merci😱😱