halecs93
XLDnaute Impliqué
Bonjour,
J'ai intégré une formule permettant de faire la somme de cellules en fonction de leur couleur. Cette formule, dans le module 1, est :
Option Explicit
Function SOMMESICOULEUR(cellules As Range)
Application.Volatile
Dim total As Double
Dim cellule As Range
For Each cellule In cellules
If cellule.Interior.Color = Application.Caller.Interior.Color Then
total = total + cellule
End If
Next
SOMMESICOULEUR = total
End Function
Or, lorsque je souhaite l'éxécuter (en B28 pour l'exemple) elle me renvoie la valeur zéro.
Une idée ?
Un grand merci par avance
J'ai intégré une formule permettant de faire la somme de cellules en fonction de leur couleur. Cette formule, dans le module 1, est :
Option Explicit
Function SOMMESICOULEUR(cellules As Range)
Application.Volatile
Dim total As Double
Dim cellule As Range
For Each cellule In cellules
If cellule.Interior.Color = Application.Caller.Interior.Color Then
total = total + cellule
End If
Next
SOMMESICOULEUR = total
End Function
Or, lorsque je souhaite l'éxécuter (en B28 pour l'exemple) elle me renvoie la valeur zéro.
Une idée ?
Un grand merci par avance