Couleur d'un graphique en fonction des valeurs
s
Bonjour à tous,
J'ai créé un graphique en camembert (secteur) et je souhaiterai que la couleur des parts du camebert changent en fonction de leur valeur car c'est un graphique amené à évoluer. Que les 3 plus grandes valeurs soient dans des nuances de rouge et que les 4 autres soit plus pâles.
Je ne sais comment faire. (surement mise en forme conditionnelle)
Merci pour votre aide
E
Tes valeurs doivent être triées par ordre croissant avant de faire le graphique
Sub toto()
nomgraphique = "Chart 1"
nomfeuille = "Comprehensive annual data_cn"
Sheets(nomfeuille).ChartObjects(nomgraphique).Activate
ActiveChart.SeriesCollection(1).Points(7).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
ActiveChart.SeriesCollection(1).Points(6).Format.Fill.ForeColor.RGB = RGB(240, 0, 0)
ActiveChart.SeriesCollection(1).Points(5).Format.Fill.ForeColor.RGB = RGB(230, 0, 0)
ActiveChart.SeriesCollection(1).Points(4).Format.Fill.ForeColor.RGB = RGB(220, 0, 0)
ActiveChart.SeriesCollection(1).Points(3).Format.Fill.ForeColor.RGB = RGB(210, 0, 0)
ActiveChart.SeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = RGB(200, 0, 0)
ActiveChart.SeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(190, 0, 0)
End Sub