Mise en forme graphique

[JJ1]

Bonsoir,


Existe-t-il un moyen de mettre en forme une série de courbes deux par deux en 2 couleurs (hormis la première qui est toujours rouge) sans marqueur (et lissage si possible) sans faire une série à la fois? (j'ai environ 100 séries)
J'ai essayé en maintenant la touche ctrl ou shift sans effet.

Merci
Bonne soirée

 

[Nairolf]

Re : Mise en forme graphique

Salut JJ1,

Essaye avec le code suivant:

>>Sub couleur_graph()
>>
>>For i = 2 To 7
>> ActiveSheet.ChartObjects("Graphique 1").Activate
>> ActiveChart.SeriesCollection(i).Select
>> Selection.MarkerStyle = -4142
>> With Selection.Format.Line
>> .Visible = msoTrue
>>
>> If Cells(11 + i, 22).Value = "rouge" Then
>> .ForeColor.RGB = RGB(255, 0, 0)
>> ElseIf Cells(11 + i, 22).Value = "bleu" Then
>> .ForeColor.RGB = RGB(0, 176, 240)
>> End If
>>
>> End With
>>Next i
>>
>>End Sub

A noter que ce code est largement perfectible.

 

[job75]

Re : Mise en forme graphique

Bonjour JJ1, Nairolf,

Sub CouleursSéries()
Dim s As Object, i%
For Each s In ActiveSheet.ChartObjects(1).Chart.SeriesCollection
  i = i + 1
  If i = 1 Or i Mod 2 = 0 Then s.Border.ColorIndex = 3
  If i > 1 And i Mod 2 Then s.Border.ColorIndex = 33
  s.MarkerStyle = xlNone
  s.Smooth = True 'lissage
Next
End Sub

A+

 

[JJ1]

Re : Mise en forme graphique

Bonsoir à tous,
Merci beaucoup, impec comme d'hab! (et que de temps gagné !)


Bonne soirée

 

[job75]

Re : Mise en forme graphique

Re,

Macro optimale :

Sub CouleursSéries()
Dim s As Object, i%
For Each s In ActiveSheet.ChartObjects(1).Chart.SeriesCollection
  i = i + 1
  s.Border.ColorIndex = IIf(i > 1 And i Mod 2, 33, 3)
  s.MarkerStyle = xlNone
  s.Smooth = True 'lissage
Next
End Sub

Bonne fin de soirée.

Edit : noter que s.Border.ColorIndex fonctionne sur Excel 2003 et versions antérieures.

A partir d'Excel 2007 il faut utiliser un autre code.

A+

 

[job75]

Re : Mise en forme graphique

Bonjour JJ1, le forum,

Voici le code pour Excel 2010 :

Sub CouleursSéries()
Dim s As Object, i%
For Each s In ActiveSheet.ChartObjects(1).Chart.SeriesCollection
  i = i + 1
  s.Format.Line.ForeColor.RGB = IIf(i > 1 And i Mod 2, 16763904, 255)
  s.MarkerStyle = xlNone
  s.Smooth = True 'lissage
Next
End Sub

A+