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

RichardUW

XLDnaute Nouveau
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
 

Pièces jointes

  • Test Graphique.xlsm
    39.9 KB · Affichages: 4

AtTheOne

XLDnaute Impliqué
Supporter XLD
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
 

Pièces jointes

  • Test Graphique.xlsm
    42.6 KB · Affichages: 2

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 799
Membres
101 818
dernier inscrit
tiftouf5757