Discussion :

[Patrick.Pipet]

Bonjour,
Je voudrais colorer des "shapes" de la même couleur que des cellules d'une feuille.

en gros quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Color=Range("A1").color
activesheet.shapes("Dessin").fill.forecolor.RGB=color

Mais comme les couleurs sont codées différemment dans la cellule et dans les "shapes", je ne sais pas comment convertir un code de couleur de cellule en code de couleur de shapes.
quelle méthode utiliser (Color, Colorindex, RGB, autre) ?

Merci de vos conseils avisés

Patrick

[OBO29]

Bonjour,

Tu es bien parti; essaye l'enregistreur de macros pour te donner des idées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim color As Double
color = Range("A1").Interior.color
ActiveSheet.Shapes("Dessin").Fill.ForeColor.RGB = color

Bonne continuation.

[Patrick.Pipet]

Merci OBO29,
L'enregistreur n'enregistre pas les commandes pour le dessin. (en Excel 2007)

En fait mon problème de fond était que j'ai des couleurs de cellules qui sont calculées par un format conditionnel, et .interior.color ne donne pas ces couleurs
J'ai récupéré des procédures ici : http://www.cpearson.com/excel/CFColors.htm
C'est un peu lourd , mais ça marche.

Par contre je préfère quand même déclarer Color en Long et pas en Double, pour ce type d'instruction.

le code devient:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Test
Dim Color as long
Color =  ColorOfCF(Range("A1"))   
ActiveSheet.Shapes("Dessin").Fill.ForeColor.RGB  =  Color
end sub
 
Function ColorOfCF(Rng As Range) As Long
' Récupéré de http://www.cpearson.com/excel/CFColors.htm et simplifié
Dim AC As Long
AC = ActiveCondition(Rng)    '  ActiveCondition est pris dans le lien ci-dessus
If AC = 0 Then
       ColorOfCF = Rng.Interior.color
Else
       ColorOfCF = Rng.FormatConditions(AC).Interior.color
End If
End Function

Maintenant ça marche bien
Merci d'avoir analyser mon problème

Patrick