Couleur des séries pour un graph compartimentage (ou TreeMap)

salut

Sur le graph ci-joint, est-il possible de faire en sorte que la couleur des compartiments correspondent à la couleur des cellules qui se trouvent dans la colonne des séries? En gros, n'avoir que 5 couleurs sur le graph (y compris en légende), comme pour avoir des catégories de compartimentage?

J'ai commencé à colorier le graph manuellement pour exemple.

Bonjour Ruliann

Après quelques tâtonnement, voici un code qui semble fonctionner

Sub MiseEnCouleur()
  Dim ObjC As ChartObject
  Dim NbPt As Integer, NumPt As Integer
  ' Définir l'objet graphique
  Set ObjC = ActiveSheet.ChartObjects(1)
  ' Nombre de point du graphique
  NbPt = ObjC.Chart.SeriesCollection(1).Points.Count
  ' Pour chaque point
  For NumPt = 1 To NbPt
    ' Là il a fallut chercher et trouver
    With ObjC.Chart.SeriesCollection(1).Points(NumPt).Format.Fill
      ' Appliquer la couleur de la ligne
      .ForeColor.RGB = Range("B" & 1 + NumPt).Interior.Color
    End With
  Next NumPt
End Sub

Copie d'écran

A+