XL 2010 Attribuer couleur automatiquement à un graph en secteur vba

[kan3pz]

Bonsoir le forum,

Je sollicite de nouveau l'aide des experts vba ! J'ai un fichier sur lequel je souhaite attribuer des couleurs automatiquement à mes graphs.

J'ai une macro sur la feuille 1 qui fonctionne bien pour mes histogrammes -> les séries des histogrammes se colorent selon la table de correspondance sur la Feuille 2.

Je n'arrive pas à adapter ce code pour appliquer ces mêmes couleurs aux graphiques en secteur de la feuille 3.
Il me semble avoir compris que c'était en partie une question de références aux objets (dans la feuille 1 on applique la couleur à la série tandis que dans la 3 ce doit être aux points).

Je joins un fichier test,

Merci !

 

[vgendron]

Hello

ton sujet m'intriguait depuis hier.. j'ai donc cherché un peu
et voici ce que j'ai trouvé

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim co As ChartObject, s As Series, p As Points
Dim col, i As Integer

col = 4
For Each co In ChartObjects
   
    'For Each s In co.Chart.SeriesCollection
        For i = 1 To co.Chart.SeriesCollection(1).Points.Count
            With co.Chart.SeriesCollection(1).Points(i)
                .Interior.Color = Worksheets("Feuil2").Cells(Application.Match(Cells(i + 1, col).Value, Worksheets("Feuil2").Columns(1), 0), 2).Interior.Color

            End With
        Next i
        col = col + 3
    'Next s
Next co
End Sub

 

[kan3pz]

Bonjour vgendron,

c'est super !
Merci beaucoup pour ton aide !!!!