Discussion :

[Michel_ja]

Bonjour, j'ai une macro qui est censé remplir le fond d'une Shape de la même couleur que le fond d'une cellule.

Alors j'ai mis le code suivant :

Code :

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

Selection.ShapeRange.Fill.ForeColor.SchemeColor = CouleurPays

(CouleurPays étant une variable CouleurPays = ActiveCell.Interior.ColorIndex).

Mais j'ai deux problèmes : le premier c'est que parfois il me dit que je numéro de couleur va au delà des limites autorisées (il m'affiche 4 250 par exemple). Deuxième problème c'est que lorsque je change la couleur de la cellule avec une des couleurs standards d'excel, résultat la couleur de la shape n'est pas identique à la couleur de la cellule !! Pouvez-vous m'aider ? Merci d'avance.

[Jean-Pierre49]

Bonjour de mémoire il y a une difference de valeur de 7

Code :

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

ActiveCell.Interior.ColorIndex = 42

donc

Code :

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

Selection.ShapeRange.Fill.ForeColor.SchemeColor =  42-7

Verifie je regarde de mon coté

[Jean-Pierre49]

Cela doit être inverse

Code :

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

Selection.Interior.ColorIndex = 6

Jaune

Code :

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

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13

Jaune

[fring]

Bonjour tlm,

Une solution consiste à convertir la valeur Color de la cellule, valeur de type Long, en valeur RGB

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub conversion_couleur()
Dim R As Integer, G As Integer, B As Integer
Dim Couleur As Long
 
Couleur = Range("A10").Interior.Color
 
R = Int(Couleur Mod 256)
G = Int((Couleur Mod 65536) / 256)
B = Int(Couleur / 65536)
 
ActiveSheet.Shapes("Nom").Fill.ForeColor.RGB = RGB(R, G, B)
End Sub

Info récupérée du tuto de SilkyRoad :
Les couleurs en VBA Excel: Les équivalences Hex-Long-RGB
.