Microsoft 365 Colorier les bulles d'un graphique à bulles en fonction d'une série supplémentaire

[RichardUW]

Bonjour,
Je manipule un tableau dont les colonnes sont:
Libellé du cas d'usage, nombre de suffrages en faveur du cas d'usage, impact, facilité de mise en oeuvre, type d'usage

Un graphique à bulle permet de le visualiser: Positionnement du cas d'usage en X, Y en fonction de facilité de mise en oeuvre et de l'impact. La taille de la bulle est fonction du nombre de suffrages.

J'ai pour cela une macro qui permet d'afficher les libellés des cas d'usage dans le graphique à bulles.

Je souhaiterais en plus colorier les bulles pour refléter le type d'usage.

Je joins le fichier en l'état. Toute aide est bienvenue.

Cordialement

 

[AtTheOne]

Bonjour à tous, bonjour @RichardUW
Avec un petit tableau pour les couleurs à appliquer et ce code :

Sub Couleurs_Type_Usage()

Dim Wsh As Worksheet, C As Range, Pt As Point, TbC, Tb, i As Long
     Set Wsh = ActiveSheet
    
     'Tableau du type d'usage
     Tb = Wsh.[$E$2:$E$26].Value
    
     'Tableau des couleurs en fonction du type d'usage
     ReDim TbC(1 To Wsh.[Couleurs].Count)
     i = 0
     For Each C In Wsh.[Couleurs].Cells
          i = i + 1
          TbC(i) = C.Interior.color
     Next
    
     i = 0
     For Each Pt In Wsh.ChartObjects(1).Chart.FullSeriesCollection(1).Points
          i = i + 1
          Pt.Format.Fill.ForeColor.RGB = TbC(Tb(i, 1))
     Next
    
End Sub

Ça fait le travail ...
Voir fichier joint
Amicalement
Alain

 

[RichardUW]

Merci beaucoup Alain,

Réponse rapide et efficace!

Merci encore