Bonjour,
Souhaitant effectuer la somme de cellules en fonction de leur couleur, j'ai trouvé la fonction Somme_Si_Couleur ci-dessous.
Par contre, quand je change la couleur d'une cellule, le calcul ne se refait pas automatiquement. Existe-t-il une solution àce problème ?
Merci d'avance pour vos contributions,
Salutations,
Régis
Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant
'*********************************************************
' Effectuer la somme des cellules en couleur *
'*********************************************************
Dim Cel As Range
Dim Som As Double
If PlageCouleur.Cells.Count > 1 Then
SOMME_SI_COULEUR = CVErr(xlErrValue)
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
Souhaitant effectuer la somme de cellules en fonction de leur couleur, j'ai trouvé la fonction Somme_Si_Couleur ci-dessous.
Par contre, quand je change la couleur d'une cellule, le calcul ne se refait pas automatiquement. Existe-t-il une solution àce problème ?
Merci d'avance pour vos contributions,
Salutations,
Régis
Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant
'*********************************************************
' Effectuer la somme des cellules en couleur *
'*********************************************************
Dim Cel As Range
Dim Som As Double
If PlageCouleur.Cells.Count > 1 Then
SOMME_SI_COULEUR = CVErr(xlErrValue)
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