N° de couleur

Le
MichelB
Bonjour à tous

Dans la ligne suivante, je n'arrive pas à trouver les codes couleurs (ce
n'est pas les mêmes que BackColor) :

ShapeRange.Fill.ForeColor.SchemeColor = 1 pour le blanc

J'ai essayé en RVB, mais j'ai une erreur.

Je recherche le code pour Orange clair (et les autres, si possible !) ;o)

Merci de vos réponses et bon week-end

Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Francois L
Le #19380201
MichelB a écrit :
Bonjour,
Pas sur d'avoir bien capté la question...

Xl, avant 2007, gère 56 couleurs par classeur, couleurs définies par la
palette. Une palette est attachée à un classeur donc une couleur définie
par un index peut être différente d'un classeur à l'autre. C'est
l'intérêt d'utiliser la définition par RGB car alors Xl recherche dans
la palette active la couleur la plus proche.

Pour afficher l'index des couleurs dans un classeur.
'---------------
Sub index_couleurs()
Dim i As Integer
With ActiveSheet
For i = 1 To 56
.Cells(i, 1).Interior.ColorIndex = i
.Cells(i, 2) = i
Next
End With
End Sub
'-----------------

On obtient ainsi le ColorIndex utilisable sur les Range. Pour les objets
(graphiques et formes) l'index de SchemeColor est égal à ColorIndex+7

SchemeColor = 8 est équivalent de ColorIndex = 1

--
François L

Bonjour à tous

Dans la ligne suivante, je n'arrive pas à trouver les codes couleurs (ce
n'est pas les mêmes que BackColor) :

ShapeRange.Fill.ForeColor.SchemeColor = 1 pour le blanc

J'ai essayé en RVB, mais j'ai une erreur.

Je recherche le code pour Orange clair (et les autres, si possible !) ;o)

Merci de vos réponses et bon week-end

Michel




Daniel.j
Le #19380191
Bonjour
http://dj.joss.free.fr/format.htm#format9

http://dj.joss.free.fr/telechar.htm#potcouleur


Daniel
--
FAQ MPFE
http://dj.joss.free.fr/faq.htm

VBAXL
http://dj.joss.free.fr/

"MichelB"
Bonjour à tous

Dans la ligne suivante, je n'arrive pas à trouver les codes couleurs (ce
n'est pas les mêmes que BackColor) :

ShapeRange.Fill.ForeColor.SchemeColor = 1 pour le blanc

J'ai essayé en RVB, mais j'ai une erreur.

Je recherche le code pour Orange clair (et les autres, si possible !)
;o)

Merci de vos réponses et bon week-end

Michel



MichDenis
Le #19380701
Bonjour Michel,

Modeste n'a pas encore lu ton message, car il t'aurait dit :
Version Excel 2003 et antérieures

N°SchemeColor = N°ColorIndex + 7

Autrement dit :
x = Range("f3").Interior.ColorIndex

With Shapes(1).OLEFormat.Object.ShapeRange.Fill
xx = .ForeColor.SchemeColor
End With

Si la couleur de fond shape dans la feuille est de la
même couleur que le fond de la cellule

si X = 7 , xx = 14


"MichelB"
Bonjour à tous

Dans la ligne suivante, je n'arrive pas à trouver les codes couleurs (ce
n'est pas les mêmes que BackColor) :

ShapeRange.Fill.ForeColor.SchemeColor = 1 pour le blanc

J'ai essayé en RVB, mais j'ai une erreur.

Je recherche le code pour Orange clair (et les autres, si possible !) ;o)

Merci de vos réponses et bon week-end

Michel
MichelB
Le #19382381
Merci à vous tous

C'est le +7 que je ne connaissais pas pour les formes !
Lorsque je mettais 47 par exemple, je n'avais pas orange clair.

A+
Michel



"MichelB"
Bonjour à tous

Dans la ligne suivante, je n'arrive pas à trouver les codes couleurs (ce
n'est pas les mêmes que BackColor) :

ShapeRange.Fill.ForeColor.SchemeColor = 1 pour le blanc

J'ai essayé en RVB, mais j'ai une erreur.

Je recherche le code pour Orange clair (et les autres, si possible !)
;o)

Merci de vos réponses et bon week-end

Michel



Publicité
Poster une réponse
Anonyme