Mises en forme conditionnelles par VBA

[Nonno 94]

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.

  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.

 

[Nonno 94]

Re : Mises en forme conditionnelles par VBA

Pas de panique et toutes mes excuses pour "ma" question "bêbête" (le chien me pardonnera !) à laquelle je viens de trouver la réponse.
Tout est rentré dans l'ordre et le fichier désormais des plus présentables.

MERCI encore et bonne fin de journée.
Nonno 94.