Bonjour à tous,
J'ai une fonction que me permets d'avoir le nombre de cellules colorée par rapport à une cellule de référence AE11 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Function NBcouleur(Cible As Range, celRef As Range) As Long
Dim cel, i%, k%
Application.Volatile
k = celRef.Interior.ColorIndex
For Each cel In Cible
     If cel.Interior.ColorIndex = k Then i = i + 1
Next
NBcouleur = i
End Function
J'ai écrit en H15 cette formule :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=NBcouleur(K15:AD15;$AE$11)
Cette fonction marche bien, mais H15 ne se met pas à jour automatiquement. Il faut à chaque fois que je double clic sur la cellule pour qu'elle se mette à jour, si une nouvelle cellule s'est colorée dans la plage donnée.
Est ce que vous auriez une astuce pour automatiser la mise à jour de la cellule ?

Merci.