Changer le backcolor d'un motif de remplissage d'un graph
Bonjour,
Je n'arrive pas à modifier la couleur du fond des motifs de remplissage sur un graphique excel. Je voudrais que cela prenne la couleur présente dans une cellule donnée, mais cela ne fonctionne pas. La macro ne beug pas pour autant, elle me met juste un fond blanc (même quand je lui précise des couleurs RGB)...
Problème solvable?
Merci d'avance
Matthieu
Bonsoir,
Problème résolu ?
Si oui comment ?
Vous nous tenez en haleine !!!
@ bientôt
LouReeD
Bonjour,
Oui, j'ai résolu mon problème :
couleur = Range("G" & d).Interior.Color
R = Int(couleur Mod 256)
G = Int((couleur Mod 65536) / 256)
b = Int(couleur / 65536)
With ActiveChart.SeriesCollection(A).Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(90, 58, 34)
.BackColor.ObjectThemeColor = msoThemeColorBackground1
.BackColor.TintAndShade = 0
.BackColor.Brightness = 0
.Patterned msoPattern5Percent
End With
With ActiveChart.SeriesCollection(A).Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 255)
.BackColor.RGB = RGB(R, G, b)
End With
En fait j'essayais de démarrer sans faire le premier With ActiveChart.SeriesCollection(A).Format.Fill, en changeant directement la couleur et en mettant le motif désiré (qui n'est pas dans le code ci dessus, je le change après), alors qu'il faut a priori initialiser en mettant le motif "msoPattern5Percent" puis le modifier dans un deuxième temps!
Voilà
Bonsoir et merci,
merci pour nous donner une solution à votre problème.
En effet quoi de plus désagréable que de se poser une question, de trouver un sujet qui en parle, mais horreur !
Donc merci pour cette solution qui ravira certainement plusieurs internautes.
@ bientôt
LouReeD