Bonsoir,

J'ai encore une question,
Dans le fichier exemple que tu as joint, le graph ne respecte pas les couleurs definies dans "Matricielle" sur le graph.
Y a t il une explication due a une mauvaise manip de ma part ?

Encore merci.

Bonjour a toutes et tous,

J'ai encore besoin d'un coup de main car j'ai un bug sur cette ligne de code :

ActiveSheet.ChartObjects(1).Chart.Legend.LegendEntries(L - 1). _
LegendKey.Interior.Color = Cel.Interior.Color

Merci pour votre aide.
Cordialement

Bonsoir a toutes et tous,

J'indique en BR12, un numero de code qui me rapatrie des données de Word et Excel. Seuls quelques données Excel (celles qui figurent sur l'onglet recapitulatif et matricielle) servent pour le graphique camenbert. Tout le reste a été effacé ( autre graph(graphique100), données word etc...)qui ne servent pas à ce graphique, mais qui completent ma feuille excel.
Le seul problèeme qui me reste est ce graphique avec les couleurs.
J'ai essayé plusieurs modifs, mais je ne m'en sors pas avec les couleurs pour ce graph.
Je pars d'une formule matricielle pour le graph, et les couleurs des "types"ne sont pas toujours les memes car c'est excel qui decide des couleurs.

Merci pour votre aide.

Bonjour à toutes et tous.

Je viens vers vous car je n’arrive pas a adapter le code de « MDF » sur les couleurs graphiques à mon cas.

Je rentre 1 code produit en BR1 de la feuille « FICHE » qui me rapatrie les données de ce produit en S13 ; U20 de la feuille « récapitulatif ».
La feuille « matricielle » sert à classer les % qui sont rapatriés sur la feuille « recapitulatif » pour le graphique et de n’afficher dans la légende que les valeurs > 0, qui vont alimenter le graphique sur la feuille « FICHE »
Par ailleurs il y a 2 plages définies
Var1 = plage I de la feuille « matricielle »
Var2 = plage H de la feuille « matricielle »

Merci pour votre aide.
Cordialement

DANS LE MODULE DE CODE DE LA FEUILLE

Private Sub Worksheet_Change(ByVal Target As Range)
'myDearFriend! - www.mdf-xlpages.com
Dim Cel As Range
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B6:B30")) Is Nothing Then
Set Cel = Sheets("Corresp.Couleurs").Columns(1).Find(Target.Value, LookIn:=xlValues)
If Not Cel Is Nothing Then
Target.Offset(0, -1).Interior.Color = Cel.Interior.Color
ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1) _
.Points(Target.Row - 5).Interior.Color = Cel.Interior.Color
End If
End If
End Sub