recalcul d'une fonction en automatique

[cyril_25]

Bonjour,
J'ai crée une fonction qui additionne des cellules en fonction de leur couleur. Le problème est que le résultat ne se met pas à jour automatiquement. Je suis obligé de retourner dans la cellule contenant la fonction et de la re-valider pour que la mise à jour se fasse. Meme un F9 n'y fait rien.

Quelqu'un a t-il une solution ?

Merci

 

[pierrejean]

Re : recalcul d'une fonction en automatique

Re
Peut-etre mettre en debut de function:

Application.Volatile

mais sans connaitre la fonction ..........

 

[cyril_25]

Re : recalcul d'une fonction en automatique

Voila la fonction :

Function additioncouleur(plage As Range, couleur As Range)

Application.Volatile
res = 0
For Each cellule In plage
If (cellule.Cells.Interior.ColorIndex = couleur.Cells.Interior.ColorIndex) Then
res = res + 1
End If
Next
additioncouleur = res

End Function

mais cela ne re-calcule pas lorsque je change une couleur. Il faut entrer une valeur dans une cellule pour re-calculer....

Aurais tu une autre idée ??

Merci

Cyril

 

[BOISGONTIER]

Re : recalcul d'une fonction en automatique

Bonjour,

-Lorsque la couleur de fond est modifiée, le résultat n'est pas mis à jour immédiatement (sauf si on utilisé le pinceau pour reproduide la mise en forme).
La MAj se fait lorsque lorsqu'un calcul est activé (option volatile)
-On peut utiliser F9 pour provoquer un calcul immédiat ou utiliser l'événnement Selection_Change avec Calculate

Fonction sommeCouleurFond

JB