Bonjour,
on pourrait surveiller la sélection faite et si on quitte une plage dont la couleur être comptée, lancer un Calculate sur la (les) cellule avec la formule de comptage :
Dim memopl As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not memopl Is Nothing Then
Range("D2").Calculate ' D2 : formule comptage couleurs
End If
Set memopl = Intersect(Target, Range("B2:B6")) ' B2:B6 : plage en couleur à superviser
End Sub
à mettre dans le module de la feuille.
Et à tester, je n'ai pas installé le pack
Nécessite quand même une action (quitter la cellule), mais maj sans F9 si ok.
Peut-être prévoir aussi un calculate à l'ouverture pour mettre à jour si qq'un a enregistré et fermé directement après modif couleur.
Dans ThisWorkbook :
Private Sub Workbook_Open()
Worksheets("Feuil1").Range("D2").Calculate
End Sub
eric