VBA Excel 2003 colorier cellule RGB

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA Excel 2003 colorier cellule RGB

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 @+

Publicité

MarieDB1

excel 2003 ne gère que les 56 couleurs en question... tu auras beau lui donner le code RGB, il affichera la couleur la plus proche de celle demandée parmis les 56 ...
avec excel 2007 par contre, il y a des chances pour que ça marche !

kiki29

Salut,pour info : 1596 couleurs dans excel, c'est possible voir http://www.excelabo.net/exemples/gd-1596couleurs

Message édité par kiki29 le 02-02-2011 à 20:56:08

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA Excel 2003 colorier cellule RGB

Sujets relatifs
VBA Excel : récupérer des termes de l'instruction	[VBA - Excel] Vlookup vers un autre fichier
[VBA Access] parcourir chaine de caractères[RESOLUS]	Req sur 3 fichiers Excel - Comment s'utilise RechercheV en VBA svp ?
Convertir un tableau en liste de données VBA sous Excel	Macro VBA Excel SharePoint
Plus de sujets relatifs à : VBA Excel 2003 colorier cellule RGB

Page générée en 0.028 secondes