Modification des colors pour un graphique à barres en cluster basé sur l'label d'axe

Eh bien, je tente de modifier les colors de mon graphique en fonction des conditions de l'label.

Tout d'abord, c'est comme ça que le graphique ressemble. Graph Picture

J'essayais de changer les valeurs en fonction de trois conditions. Attention, critique et d'urgence. Fondamentalement, il a trois colors différentes pour chacune des conditions. Par exemple, toutes les urgences sont rouges, toutes critiques sont orange et tous les avertissements sont jaunes. "Titre" est l'axe des x dans mon cas et la "criticité" se trouve être le cluster.

J'ai essayé de suivre le thread excel vba en changeant la couleur du graphique à barres pour un sharepoint données basé sur la valeur du point

J'ai également examiné ce thread Changer les colors de barre à l'aide de VBA en fonction de l'label de catégorie

Je n'ai eu aucune chance à essayer d'utiliser le code des deux threads.

Ce code du deuxième thread a du bon sens pour moi d'utiliser dans mon cas.

Dim c As Chart Dim s As Series Dim iPoint As Long Dim nPoint As Long Set c = ActiveChart Set s = c.SeriesCollection(1) nPoint = s.Points.Count For iPoint = 1 To nPoint If s.XValues(iPoint) = "avg" Then s.Points(iPoint).Interior.Color = RGB(255, 0, 0) End If Next iPoint 

Mais pas sur quelles variables devrais-je changer. Toute aide est bienvenue!

Merci.

les s.XValues ​​(iPoint) contiendront Title et Criticality concatenated. Essayez de changer:

 If s.XValues(iPoint) = "avg" 

à:

 If right(s.XValues(iPoint), 9) = "Emergency" 

De cette façon, vous vérifierez si les 9 dernières lettres de l'label sont exactement "Urgence".

Vous devriez pouvoir modifier votre code pour append une autre condition pour Critical ou Warning.

J'espère que cette aide,

Le macro gourou