Bonjour le Forum,
ne parvenant pas à le faire, je viens vous demander comment modifier le code suivant pour changer la couleur de fond des cellules dont les valeurs sont des pourcentages en fonction de la valeur de ces pourcentages.
Si le % est égal ou supérieur à 40 %, fond "vert",
30 %, fond "RGB(207, 255, 210)"
20 %, fond "jaune"
> 0, fond "orange"
< 0, fond "rouge".
Avec mes remerciements et en vous souhaitant une bonne fin de journée.
Cordialement.
Nonno 94.
ne parvenant pas à le faire, je viens vous demander comment modifier le code suivant pour changer la couleur de fond des cellules dont les valeurs sont des pourcentages en fonction de la valeur de ces pourcentages.
Code:
For Each c In Range("I3:I242").Cells
Select Case CStr(c.Value) ' Select Case c.Value
Case Is > 0, 4
c.Interior.Color = vbGreen
c.Font.Color = vbBlack
Case Is > 0, 3
c.Interior.Color = RGB(207, 255, 210)
c.Font.Color = vbBlack
Case Is > 0, 2
c.Interior.Color = vbYellow
c.Font.Color = vbBlack
Case Is < 0
c.Interior.Color = RGB(255, 210, 0)
c.Font.Color = vbBlack
Case Else
c.Interior.Color = RGB(0, 255, 255)
c.Font.Color = vbBlue
End Select
Next
Si le % est égal ou supérieur à 40 %, fond "vert",
30 %, fond "RGB(207, 255, 210)"
20 %, fond "jaune"
> 0, fond "orange"
< 0, fond "rouge".
Avec mes remerciements et en vous souhaitant une bonne fin de journée.
Cordialement.
Nonno 94.