Sub Macro51()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'--------------------------------------------------------------------------------------------------------------------
Dim Lignes, i, X As Integer
Lignes = 0
i = 2
X = 0
'on clear le graphique 1
With ActiveSheet.ChartObjects("Graphique 1").Chart
Do Until .SeriesCollection.Count = 1 'boucle supprimant toutes les séries jusqu'à ce qu'on arrive à UN
.SeriesCollection(2).Delete
Loop
End With
'--------------------------------------------------------------------------------------------------------------------
For Lignes = 30 To 37
VI = Worksheets("DONNEES-GRAPH").Cells(Lignes, 12)
'MsgBox VI
If VI <> "" Then
'----------------------------------------------------------------------------------------------------------------------------G5>G9
'Début Instructions - LIGNE NOIRE
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Name = "='DONNEES-GRAPH'!$J$" & Lignes
ActiveChart.SeriesCollection(i).XValues = "='DONNEES-GRAPH'!$L$" & Lignes & ":$M$" & Lignes
ActiveChart.SeriesCollection(i).Values = "='DONNEES-GRAPH'!$N$" & Lignes & ":$O$" & Lignes
ActiveChart.SeriesCollection(i).Select
With Selection.Format.Line
.Visible = msoTrue
'.ForeColor.ObjectThemeColor = msoThemeColorAccent
.ForeColor.ObjectThemeColor = msoThemeColorText1
.Weight = 8
'.ForeColor.TintAndShade = 0
'.ForeColor.Brightness = 0
'.Transparency = 0
End With
'---------------------------------------------------------------------------------------------------------------------
'BOULE
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(i).Select
ActiveChart.SeriesCollection(i).Points(1).Select
With Selection
.MarkerStyle = xlMarkerStyleCircle
.MarkerSize = 30
.Format.Fill.Visible = msoTrue
.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Format.Line.Visible = msoFalse
End With
'--------------------------------------------------------------------------------------------------------------------
'MSN EN BLANC
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(i).Select
ActiveChart.SeriesCollection(i).Points(1).Select
ActiveChart.SeriesCollection(i).Points(1).ApplyDataLabels
ActiveChart.SeriesCollection(i).DataLabels.Select
ActiveChart.SeriesCollection(i).Points(1).DataLabel.Select
Selection.ShowCategoryName = -1
Selection.ShowValue = 0
Selection.Position = xlLabelPositionCenter
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(i).DataLabels.Select
ActiveChart.SeriesCollection(i).Points(1).DataLabel.Select
Selection.AutoText = True
With Selection.Format.TextFrame2.TextRange.Font.Fill
'.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
'.ForeColor.TintAndShade = 0
'.ForeColor.Brightness = 0
'.Transparency = 0
'.Solid
Selection.Format.TextFrame2.TextRange.Font.Size = 20
Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue
End With
'Selection.Format.TextFrameI.TextRange.Font.Bold = msoTrue
'--------------------------------------------------------------------------------------------------------------------
'SAVING FINALE
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(i).Select
ActiveChart.SeriesCollection(i).Points(2).Select
ActiveChart.SeriesCollection(i).Points(2).ApplyDataLabels
ActiveChart.SeriesCollection(i).DataLabels.Select
ActiveChart.SeriesCollection(i).Points(2).DataLabel.Select
Selection.ShowSeriesName = -1
Selection.ShowValue = 0
Selection.Position = xlLabelPositionCenter
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(i).DataLabels.Select
ActiveChart.SeriesCollection(i).Points(2).DataLabel.Select
Selection.AutoText = True
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(23, 55, 94)
End With
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Weight = 2.5
End With
With Selection.Format.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 255)
Selection.Format.TextFrame2.TextRange.Font.Size = 30
Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue
End With
'-----------------------------------------------------------------------------------------------------------------------------'GO>G9
i = i + 1
End If
Next Lignes
'---------------------------------------------------------------------------------------------------------------------
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub