starkoala | Salut @ tous,
Je souhaite faire une mise en forme conditionnelle dans excel 2003 à la mode excel 2007. C'est a dire une mise en forme qui colorie les cases de façon a faire une nuance de couleur. tout ce qui est négatif passe du vert (0;255;0) au jaune (255;255;0) et tout ce qui est positif passe du jaune au rouge (255;0;0)
J'ai déjà écrit cela qui fonctionne correctement (sans doute ca n'est pas le plus efficace mais ca me convient)
Code :
- Sub conditionnelle()
- Dim min As Double, max As Double, rouge As Double, vert As Double, bleu As Long, val As Double, plage As Range
-
- Set plage = Range("A1: a50" )
-
- min = Application.WorksheetFunction.min(plage)
- max = Application.WorksheetFunction.max(plage)
-
- rouge = Abs(255 / max)
- vert = Abs(255 / min)
- bleu = 0
-
- For Each c In plage
-
- val = c.Value
-
- If val < 0 Then
- c.ForeColor = RGB(255 + val * vert, 255, 0)
- Else
- c.Interior.Color = RGB(255, 255 - val * rouge, 0)
- End If
-
- Next
-
- End Sub
|
le problème est que je n'arrive pas à obtenir les couleurs souhaitées, a chaque fois excel utilise une de ses 56 couleurs prédéfinies.
Comment faire pour colorier une case suivant une vrai couleur RGB.
Merci et @+
|