Bonjour j'ai trouvé une macro pour compter des cellules écrites en noires sur une plage précise.
Par contre j'arrive pas à ce qu'elle change à chaque fois qu'on modifie la couleur de la donnée. J'aimerai que ça soit automatique à chaque changement.
Voici mon code, est ce que quelqu'un peut m'aider ?
Par contre j'arrive pas à ce qu'elle change à chaque fois qu'on modifie la couleur de la donnée. J'aimerai que ça soit automatique à chaque changement.
Voici mon code, est ce que quelqu'un peut m'aider ?
Sub totalCellulesNoires()
Dim maPlage As Range
With ActiveSheet
Set maPlage = Union(.Range("D17:O25"), .Range("D30:O35"), .Range("D40:O43"))
End With
Dim totCellNoires As Double
totCellNoires = 0
Dim maCellule As Range
For Each maCellule In maPlage
If maCellule.Font.Color = 0 Then totCellNoires = totCellNoires + maCellule.Value
Next maCellule
Range("M11").Value = totCellNoires
End Sub