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 Accro
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

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
315 097
Messages
2 116 186
Membres
112 679
dernier inscrit
Yupanki