Function NbColor(ByRef Plage As Range, Couleur As Byte) As Long
    Dim c As Range
    Dim nb As Long
    nb = 0
    For Each c In Plage
        If c.Interior.ColorIndex = Couleur Then
            nb = nb + 1
        End If
    Next c
    NbColor = nb
End Function

Function NbColorSameAs(ByRef Plage As Range, ByRef Cellule As Range) As Long
    NbColorSameAs = NbColor(Plage, Cellule.Interior.ColorIndex)
End Function

Bonjour

J'ai utilisé le code VBA (ci-dessus) du fichier MDF que j'avais depuis quelques temps : très efficace

J'ai constaté par contre que le rafraichissement n'est pas automatique

Le calcul se met à jour si on colorie ou décolorie des cellules par "glisser" avec la souris

Le décompte ne se modifie pas par contre si je colorie une cellule avec le menu Excel (Pinceau...)

La seule solution trouvée est d'aller sur le cellule da décompte, de taper sur F2, puis de valider

Mon calcul de feuille est pourtant automatique et F9 ne provoque pas non plus la mise à jour attendue

Quelle modification apporter au code pour que le nombre de cellules colorées se mette à jour automatiquement, en continu ?

Merci