Application.Volatile qui ne fonctionne pas
Bonjour a tous,
j'ai une macro qui fait une somme suivant la couleur de la case.
Le problème étant que je suis obligé de faire F9 pour actualiser mes sommes malgré que j'ai Application.Volatile dans mon code VBA.
Comment puis-je resoudre mon problème plz ?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| 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 |
MErci pour votre aide