N° de couleur

4 réponses

MichelB

21/05/2009 à 09:51

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

4 réponses

Francois L

21/05/2009 à 10:54

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

21/05/2009 à 10:55

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" a écrit dans le message de news:

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

21/05/2009 à 12:20

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" a écrit dans le message de groupe de discussion :

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

21/05/2009 à 17:53

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" a écrit dans le message de news:

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

N° de couleur

4 réponses

Veuillez sélectionner un problème