Discussion :

[Daniel.C]

Bonsoir le forum,

J'ai un graphique en histogramme de 25 séries. Sur le lot, j'ai les séries 4 et 18 qui ont les mêmes couleurs. Ce qui m'ennuie énormément pour la raison suivante. Je regroupe certaines séries et je leur attribue comme couleur la couleur de la première série rencontrée. J'ai donc deux groupes de séries avec la même couleur. Sachant que je traite par macro un nombre variable de séries. Le contournement auquel j'ai pensé est de lire les couleurs de toutes les séries et de faire +100 sur la couleur en bouclant jusqu'à ne plus avoir de doublons...

Merci d'avance pour vos conseils éclairés.

Je vous joins le classeur : Mart29 Végét-forum.xls

[Invité]

Bonsoir Daniel,
je suis sur mon tel donc pas de visionnage de ton fichier mais juste un idée.

Pourquoi ne pas calculer un pourcentage de la couleur max et afubler chaque serie avec celle qui lui renient en fonction de ça position?

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim Graph
Dim I As Integer
Dim Txt As String
  Set Graph = ActiveSheet.ChartObjects("Chart 26").Chart
  For I = 1 To Graph.SeriesCollection.Count
    If InStr(Txt, ";" & Graph.SeriesCollection(I).Interior.Color & ";") = 0 Then
        Txt = Txt & ";" & Graph.SeriesCollection(I).Interior.Color & ";"
    Else
        Graph.SeriesCollection(I).Interior.Color = Graph.SeriesCollection(I).Interior.Color + 100
        I = I - 1
    End If
Next

[Daniel.C]

Bonjour,

Je te remercie.
c'est ce que je comptais faire, mais j'ai peur qu'en additionnant 100, je tombe sur une couleur déjà existante ou sur une teinte peu esthétique. Ce que je vais faire, je vais générer un graphique de 200 séries (largement suffisant) et je vais lister les couleurs en supprimant les doublons. Je les conserverai sur une feuille masquée et je les appliquerai systématiquement.