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

RichardUW · 17 Février 2022

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 · 17 Février 2022

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

Enrichi (BBcode):

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 · 17 Février 2022

Merci beaucoup Alain,

Réponse rapide et efficace!

Merci encore

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

RichardUW

XLDnaute Nouveau

Pièces jointes

AtTheOne

XLDnaute Accro

Pièces jointes

RichardUW

XLDnaute Nouveau

Discussions similaires