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

Bonjour à tous,

Pour une première solution, on ajoute la ligne suivante au début du code de la fonction personnalisée  "NbColor":

Application.Volatile

et on ajoute le code suivant au "code" de la feuille où la fonction "NbColor" est appliquée:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Calculate
End Sub

Cordialement

Bonjour

Cela fonctionne !

Merci

J'aimerais bien avoir ce niveau de "débutant" :)