Discussion :

[NEC14]

Bonjour à tous,

Dans un module, j'ai mis en place ce code qui me permet de faire la somme des cellules de même couleur.
Cela fonctionne plutôt bien, sauf que lorsque je change de couleur, je suis obligé de retaper la formule dans ma cellule.
Je souhaiterai que si je change de couleur dans la cellule où doit se trouver le résultat, le calcul se fasse automatiquement.

Voir le fichier joint
Comment puis-je procéder ?

Merci par avance

Code module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant
'Effectue la somme des cellules couleur
 
Dim Cel As Range
Dim Som As Double
 
If PlageCouleur.Cells.Count > 1 Then
SOMME_SI_COULEUR = CVErr(xlValue)
Exit Function
End If
 
For Each Cel In PlageSomme
If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel
Next
 
SOMME_SI_COULEUR = Som
 
End Function