XL 2010 Attribuer des couleurs définies à des graphiques

[kan3pz]

Bonjour à tous !

Je suis confronté à un problème qui dépasse mes compétences
Je souhaite faire des analyses graphiques de produits selon différents critères, dans mon fichier exemple j'ai 8 produits qui peuvent être classés selon 3 critères : quantité, qualité et le prix.

Je voudrais les 5 produits les plus important selon chacun de ces critères avec un code couleur spécifique par produit.

Le classement étant différent pour chaque critère je suis obligé de modifier les couleurs de mes graphiques pour qu'un produit ait tout le temps la même couleur.

Auriez vous une solution ? (vba sûrement ?)

Merci de votre aide !

 

[job75]

Bonjour kan3pz,

Voyez le fichier joint et cette macro dans le code la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim co As ChartObject, s As Series
For Each co In ChartObjects
  For Each s In co.Chart.SeriesCollection
    s.Interior.Color = Cells(Application.Match(s.Name, Columns(1), 0), 2).Interior.Color
Next s, co
End Sub

A+

 

[job75]

Re,

En toute logique il faut introduire les tris des tableaux dans la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim co As ChartObject, s As Series
[D1:E9].Sort [E1], xlDescending, Header:=xlYes 'tri décroissant
[G1:H9].Sort [H1]: [J1:K9].Sort [K1]
For Each co In ChartObjects
  For Each s In co.Chart.SeriesCollection
    s.Interior.Color = Cells(Application.Match(s.Name, Columns(1), 0), 2).Interior.Color
Next s, co
End Sub

Fichier (2).

A+

 

[kan3pz]

Bonjour job75,

Merci pour ta réponse rapide c'est exactement ce qu'il me fallait !