Graph courbe couleurs s'étalant sur 3 années

[rocky9]

Bonjour,

J'ai un graphique retraçant 2 courbes qui parte de 2009 à 2011.

En abscisse, il est bien précisé les semaines et les années mais j'aimerai mettre sur la courbe une couleur différente pour chaque année.

Ci-joint le fichier, l'onglet graph s'alimente avec l'onglet base2.

Cordialement et merci

 

[Pierrot93]

Re : Graph courbe couleurs s'étalant sur 3 années

Bonjour,

regarde peut être ceci, pour la 1ère série :

Option Explicit
Sub test()
Dim t() As Variant, s As Series, i As Integer, j As Byte
t = Array(0, 3, 11, 40)
Set s = Feuil2.ChartObjects(1).Chart.SeriesCollection(1)
For i = 1 To s.Points.Count
    If InStr(s.XValues(i), vbLf) > 0 Then j = j + 1
    With s.Points(i)
        .Border.ColorIndex = t(j)
        .MarkerBackgroundColorIndex = t(j)
        .MarkerForegroundColorIndex = t(j)
    End With
Next i
End Sub

bona près midi
@+

 

[CB60]

Re : Graph courbe couleurs s'étalant sur 3 années

Bonjour
Voici un exemple, qui pourrait être amélioré si les dates étaient gerés autrement.

Click sur le lien Cijoint

Cijoint.fr - Service gratuit de dépôt de fichiers