Re : Compter le nombre de cellules colorées avec ou sans mise en forme conditionnelle
Bonjour,
Je relance le sujet car j'ai un petit soucis. Dans un tableau, j'ai effectué des mises en forme conditionnelle sur chaque colonne de façon à faire apparaitre en rouge les anomalies te en orange les warning. Dans une nouvelle colonne, je souhaite compter le nombre de cellules rouges (et par extension orange) pour chaque ligne ce qui em donnera le nombre d'anomalies.
Pour cela, j'ai écris la fonction suivante :
Function NbRouge(ByRef Plage As Range) As Long
Dim c As Range
Dim nb As Long
nb = 0
For Each c In Plage
If c.Font.Color = RGB(255, 0, 0) Then
nb = nb + 1
End If
Next c
NbRouge = nb
End Function
Pour information, j'ai essayé plusieurs variantes :
c.Interior.Color = RGB(255, 0, 0)
c.Font.ColorIndex = 3
c.Interior.ColorIndex = 3
Dans chaque cas, la fonction me retourne 0. or si je change manuellement le contenu d'une cellule pour la mettre en rouge, j'obtiens bien le résultat attendu.
Par conséquent, je me demandais comment je pouvais compter le nombre de cellules colorées en rouge à la suite de mes mises en forme conditionnelle.
En vous remerciant par avance.