Macro couleur séries graphique excel 2010

WINNIE0931

Posté le 16/10/2014 @ 15:39

Bonjour à tous.

Je suis à la recherche (certainement par VBA) d'un moyen d'automatiser les couleurs des séries d'un graphique de type histogramme en fonction des libellés des étiquettes des séries.

Le document est téléchargeable avec ce lien :

http://cjoint.com/?DJqpPpBsWlS

Les étiquettes peuvent prendre 4 valeurs :

- "Bon niveau" et en ce cas la couleur de la série serait bleu turquoise (RGB : 102 204 255)

- "Niveau moyen" et en ce cas la couleur de la série serait lavande (RGB : 255 153 255)

- "Passable" et en ce cas la couleur de la série serait vert clair (RGB : 204 255 153)

- "Autres cas" et en ce cas la couleur de la série serait orange (RGB : 255 192 0)

A noter que les étiquettes ne sont pas forcément au nombre de 4 ; le "niveau moyen" peut être absent de l'étude par exemple.

Je génère le graphique par la macro suivante, en sélectionnant la source (ici cellules B4:T9) à l'aide d'une Inputbox

Sub generegraph()
'

Dim Var As range, i As Integer, NomZone As String
On Error Resume Next
Set Var = Application.InputBox("Sélectionner la source du graphique à partir de la cellule B4", _
"Sélection de zone ", Default:="", Type:=8)
On Error GoTo 0
If Not Var Is Nothing Then
'MsgBox Var.Address qui correspond aux références des cellules sélectionnées
Var.Select
Else
Exit Sub
End If

Dim maplage As range
Set maplage = Selection

'

'
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Activesheet.Shapes.AddChart.Select
ActiveChart.SeriesCollection(1).ChartType = xl3DColumnStacked
ActiveChart.Parent.Name = "mongraph"

ActiveChart.SetSourceData Source:=maplage
Activesheet.Shapes("mongraph").ScaleWidth 1.5989584427, msoFalse, _
msoScaleFromTopLeft
Activesheet.Shapes("mongraph").ScaleHeight 1.4861111111, msoFalse, _
msoScaleFromTopLeft
Activesheet.Shapes("mongraph").ScaleWidth 1.2657980274, msoFalse, _
msoScaleFromTopLeft
Activesheet.Shapes("mongraph").ScaleHeight 1.1565420561, msoFalse, _
msoScaleFromTopLeft

Activesheet.ChartObjects("mongraph").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.ChartArea.Format.ThreeD.Perspective = False

Mavariable = Var.Address
'MsgBox mavariable
range(Mavariable).SpecialCells(xlCellTypeConstants, 1).Select
For Each Cellule In Selection
If Cellule.Value = 0 Then Cellule.Value = ""
Next

Activesheet.ChartObjects("mongraph").Activate

For num = 1 To ActiveChart.SeriesCollection.Count

ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(num).Select
ActiveChart.SetElement (msoElementDataLabelShow)
Next

Activesheet.ChartObjects("mongraph").Activate
ActiveChart.Legend.Select
ActiveChart.Legend.Select
Selection.Position = xlBottom

End Sub

Merci beaucoup pour votre aide

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

Pâte thermique Arctic MX-4 (4 g) à 4,99 €
4,99 € ~~6,99 €~~ -29% @Amazon

Amazon fait une promotion sur la pâte thermique Arctic MX-4 (4 g) à 4,99 € au lieu de 6,99 €. La pâte thermique ARCTIC MX-4 composée de microparticules de carbone garantit une conductivité thermique extrêmement élevée. Ainsi, la chaleur du processeur ou des puces est dissipée rapidement et efficacement. Pour CPU et GPU PC, XBox, PS4, ...

Voir le bon plan

Carte mémoire microSDXC UHS-I U3 A2 SanDisk Extreme 128 Go (jusqu'à 160 Mo/s) à 16,99 €
16,99 € ~~24,99 €~~ -32% @Cdiscount

Cdiscount fait une promotion sur la carte mémoire microSDXC UHS-I U3 A2 SanDisk Extreme 128 Go qui passe à 16,99 €. Cette carte mémoire offre des vitesses jusqu'à 160 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD. Elle est compatible GoPro, Switch et est accompagnée d'un adaptateur SD.

Voir le bon plan

Mini PC Beelink SER3 (Ryzen 7 3750H, 8 Go RAM, SSD 256 Go) à 287,32 €
287,32 € ~~500 €~~ -43% @Banggood

Bangood fait une promotion sur l'excellent mini PC Beelink SER3 qui passe à 287,32 € avec le code BG80481e. On le trouve habituellement autour de 400 €. Ce mini PC intègre un processeur AMD Ryzen 7 3750H (4 coeurs), 8 Go de RAM DDR4 et un SSD NVMe de 256 Go au format M.2 (un emplacement 2.5' libre est également disponible). Il possède un chip graphique RX Vega 10 qui fera tourner tous vos jeux. Il intègre le WiFi 5, le bluetooth 5.1, un port Ethernet Gigabit, 4 ports USB 3.0, un port USB-C et deux connecteurs HDMI.

Une excellente affaire pour un PC très performant, silencieux et qui ne prendra pas de place !

Voir le bon plan

Station de charge portable Bluetti PowerOak EB240 2400Wh/1000W à 949 €
949 € ~~1800 €~~ -47% @Geekbuying

Geebuying fait une belle promotion sur la station de charge portable Bluetti PowerOak EB240 2400Wh/1000W à 949 € grâce au code promo 7GUFQ4AF. On la trouve ailleurs à partir de 1800 €.

Cette Power Station offre une capacité de 2400Wh et deux sortie AC de 1000W (1200W en crète) à onde sinusoïdale pure. Elle peut alimenter des appareils tels que TV, réfrigérateurs, ordinateurs, des drones, etc. En tant que batterie au lithium de secours de 2400 Wh, elle fournit suffisamment de jus pour faire fonctionner les appareils essentiels pendant des heures, en fonction de la sortie réelle. Elle possède également 4 ports USB, un ports USB-C PD de 45W.

La batterie peut être rechargée via l'adaptateur secteur fourni ou des panneaux solaires.

Très pratique comme station d'énergie autonome en voyage, camping ou pour parer à des coupures électriques.

Notez que l'expédition se faire depuis un entrepôt européen. Elle sera donc rapide et sans risque de douane.

Voir le bon plan

Carte Graphique Sapphire Pulse Radeon RX 6700 XT 12 Go + Jeu PC The Last Of Us Part 1 à 399,95 €
399,95 € ~~469,95 €~~ -15% @LDLC

LDLC fait une promotion sur la carte graphique Sapphire Pulse Radeon RX 6700 XT 12 Go qui passe à 399,95 € avec le code CHOC au lieu de 469,95 €. La carte graphique Sapphire PULSE Radeon RX 6700 XT 12GB est une carte graphique gaming qui est animée par l'architecture RDNA 2 destinée aux gamers exigeants. Elle est la carte graphique idéale pour une utilisation en 1440p avec des fréquences d'images ultra-élevées.

Voir le bon plan

SSD Interne M.2 NVMe PCIe 4.0 Samsung 980 PRO 2 To (avec dissipateur, 7000 Mo/s) à 173,24 € livré
173,24 € ~~250 €~~ -31% @Amazon Allemagne

Amazon Espagne fait une promotion sur le SSD Interne M.2 NVMe PCIe 4.0 Samsung 980 PRO 2 To avec son dissipateur de chaleur qui passe à 168,60 € (avec la TVA ajustée). Comptez 4,64 € pour la livraison en France soit un total de 173,24 € livré. On le trouve ailleurs à partir de 250 €. Ce SSD offre des taux de transfert de 7000 Mo /s en lecture et 5100 Mo/s en écriture. Une excellente affaire.

Notez qu'il est également compatible avec la console de jeux PS5.

Voir le bon plan