[AC-2003] Modifier Couleurs camembert par VBA

[paidge]

Bonjour,

Dans mon application, j'ai créé un graphique(camembert) dynamique en fonction des choix de l'utilisateur. Dans ma série de données, je peux avoir à peu près entre 5 et 20 données, avec chacune une couleur différente. Or les couleurs par défaut sont vraiment très laides et parfois se ressemblent un peu trop. Je suis donc en train de chercher un algorithme me permettant de changer ces couleurs en fonction du nombre de données. Mais pour l'instant rien de concluant....

Voilà où j'en suis, après avoir testé de multiples solutions...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ChangeCouleurGraph()
 
    Dim i, j, A, B, C As Integer
 
    i = 1
 
    With vlChart.SeriesCollection(1)
        For A = 80 To 240 Step 80
            For B = 80 To 240 Step 80
                For C = 80 To 240 Step 80
                    .Points(i).Interior.Color = RGB(A, B, C)
                    i = i + 1
                    If i = .Points.Count Then Exit Sub
                Next C
            Next B
        Next A
    End With
 
End Sub

Malgré cela, j'ai des couleurs trop ressemblantes les unes par rapport aux autres...

Je cherche aussi sur quel évènement mettre cette procédure car si je le mets sur l'évènement _Updated de mon graph, ça ne convient pas...

Merci d'avance