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 :
J'ai écrit en H15 cette formule :
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
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part =NBcouleur(K15:AD15;$AE$11)
Est ce que vous auriez une astuce pour automatiser la mise à jour de la cellule ?
Merci.
Partager