couleurs vba

Question

Bonjour,

j'ai un graphique créé via une macro vba que je cherche à customiser avec des couleurs précises...

J'ai leurs codes RGB mais quand je fais le code suivant

With ActiveChart.SeriesCollection(1).Points(i)
       .Fill.ForeColor.SchemeColor = RGB(50, 50, 50)
end With


il n'en veut pas...il faut mettre les couleurs standard de excel...du style


With ActiveChart.SeriesCollection(1).Points(i)
       .Fill.ForeColor.SchemeColor = 5
end With

quelqu'un aurait-il une solution ?

merci =)

michel_m · Answer

Re,
XL<2007
Apparemment il s'agit des numéros "colorindex" 5= bleu qui correspond en RGB à 0,0,255
on a droit qu'à 56 couleurs en VBA
RGB 50,50,50 n'est pas mentionné ==> refus ?
fais des essais avec la nomenclature "colorindex"
ci joint tableau de correspondance des couleurs
http://www.cijoint.fr/cjlink.php?file=cj200812/cijqfePeQU.xls
tu vois l'utilité de cijoint, maintenant ;-))

nikomania · Answer

lol oui je vois bien l'utilisé de cijoint merce =)

en fait avec la nomenclature colorindex ca marche très bien, je n'ai pas de pb...le hic c'est quand je veux mettre une couleur perso...apparement la propriété SchemeColor , ne prend pas en compte les codes RGB...

peut etre qu'il faudrait changer la palette de couleurs pour avoir les colorindex correspondant à mes couleurs à moi ?

michel_m · Answer

Schemecolor demande du code colorindex donc ( je n'ai jamais essayé avec RGB répertorié)......
tu as droit à 56 couleurs (d'ailleurs moins car doublons) point.barre 
Tes couleurs à toi ne seront pas prises si elles ne sont pas répertoriées (voir le tableau joint)
Je précise avec XL<2007...

nikomania · Answer

ok. je travaille sur XL 2007 mais les clients auront souvent XL<2007 donc il faut que je considère que je suis en <2007...

la solution est donc de passer mes couleurs dans la palette XL pour les répertorier ?

michel_m · Answer

hé oui, hélas, j'en ai bien peur!

Si c'est pour des clients, reste dans des procédures et méthodes classiques pour faciliter un max la maintenance: ca évitera les coups de téléphone ( ton appli est réussie si tu n'en entend plus parler)

bonne soirée

tipiwa · Answer

bonjour nikomania

pour la couleur, il faut écrire 2 fois RGB

With Selection
.ShapeRange.Fill.ForeColor.RGB = RGB(219, 238, 243) 
End With


Tipiwa

tipiwa · Answer

ouaip!

puisque personne n'a donné de réponse à sa question

Si quelqu'un tombe sur ce mail en faisant des recherches au moins il aura la réponse

C'est énervant de faire 36000 recherches sans trouver de solutions

Comme ça ça servira à d'autres

Polux31 · Answer

Bonjour,

Il suffit de lire pour avoir la réponse.

Yop !!!

;o)

Couleurs vba

8 réponses

Discussions similaires

Newsletters