OVH Cloud OVH Cloud

code des couleurs

3 réponses
Avatar
andre
bonjour a tout le forum
et meilleurs voeux
une petite question toute simple
sur les codes de couleur
dans une fonction j'utilise "colorindex"
si je retourne la valeur "3"
j'ai rouge "5" bleu
alors que dans l'aide j'ai le tableauci-apres
qui definit des autres codes (qbcolor)
alors voila j'ai besoin de vos lumieres
ou puis je trouver les ces valeurs
merci



0 Noir 8 Gris
1 Bleu 9 Bleu clair
2 Vert 10 Vert clair
3 Cyan 11 Cyan clair
4 Rouge 12 Rouge clair
5 Magenta 13 Magenta clair
6 Jaune 14 Jaune clair
7 Blanc 15 Blanc pur

3 réponses

Avatar
JB
Bonjour,

Sub Palette()
[A1].Select
For c = 1 To 56
Cells(c, 1) = c
Cells(c, 2).Interior.ColorIndex = c
Next c
End Sub

Cordialement JB
Avatar
andre
merci JB
c'est exactement
ce que je cherchais
"JB" a écrit dans le message de news:

Bonjour,

Sub Palette()
[A1].Select
For c = 1 To 56
Cells(c, 1) = c
Cells(c, 2).Interior.ColorIndex = c
Next c
End Sub

Cordialement JB



Avatar
Modeste
Bonsour® andre avec ferveur ;o))) vous nous disiez :

ou puis je trouver les ces valeurs


en plus de la réponse de JB
ainsi que celle de "Michel ;o)))" hier Re : Couleurs 16:31
Pour modifier la palette de couleurs d'un classeur :
Barre de menu / outils / options / onglet couleur



- la palette modifiée reste attachée au classeur qui la contient.
- une seule palette est disponible à un instant donné.

il est ainsi possible de faire référence à de multiples palettes
personnalisées disponibles parmi les classeur ouverts à un instant donné
Barre de menu / outils / options / onglet couleur > copier les couleurs de :
choisir le classeur contenant la palette à utiliser

exemple :
ActiveWorkbook.Colors = Workbooks("GDPalette.xls").Colors

voir à ce propos :
http://www.excelabo.net/moteurs/compteclic.php?nom=gd-xlcolors
cette archive contient deux démonstrations de modification de palettes

par ailleurs :
se mefier de l'amalgame entre Color et ColorIndex :
Color fait référence à un entier long compris entre 0 et 16millions....
et correspond aux proportions de Rouge, Vert et Bleu de la fonction RGB
(R,V,B)
R,V,B variant de 0 à 255
cette valeur RGB calculée est totalement dissociée de la valeur de
ColorIndex
limitée exhaustivement à 56 valeurs parmi les 16millions.... ci-dessus
mentionnées
Excel se charge alors par je ne sais quel algorithme ???? faire correspondre
plusieurs Color(Rgb) à un seul ColorIndex :-((

en VBA les constantes Color ci-dessous sont immuables quelles que soient les
modifications apportées à la palette .
VbBlack,vbRed,VbBlue,VbYellow,VbGreen,VbCyan,VbMagenta,VbWhite
respectivement Noir,Rouge,Bleu,Jaune,Vert,Cyan,Magenta,Blanc
(code à utiliser dans les formats personnalisés)

il convient également de noter que selon les versions Excel, les palettes et
les colorPickers associés(format cellules, graphes etc...)
ont évolués de façon quelques peu erratiques...
voir à ce propos : http://www.mvps.org/dmcritchie/excel/colors.htm
ce lien contient la quasi exhaustivité des réponses aux questions relatives
aux couleurs dans excel

pour le fun !!! ;o))
il est possible de disposer de plus de 56 couleurs .... (3080)
en jouant avec le motifs de tramage et couleur associée
mais la gestion en devient quelque peu GeeDeesque ;o)))


--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr