Sub Graphique_Auto_Ajoute_Série_Ataraxy()
'Sheets("Feuil_GRAPH").Activate
ActiveSheet.ChartObjects("Graphique 1").Activate
With ActiveChart.SeriesCollection.NewSeries
.ApplyDataLabels
.DataLabels.ShowValue = False
.DataLabels.ShowSeriesName = False
.DataLabels.ShowCategoryName = False
.DataLabels.ShowValue = False
.Select
End With
'Selection.FormulaLocal = "=SERIE('Feuil_Tableau'!$N$" & ligne_tableau & ";'Feuil_Tableau'!$O$63:$W$63;'Feuil_Tableau'!$O$" & ligne_tableau & ":$W$" & ligne_tableau & ";" & ligne_tableau & ")" 'Le dernier argument représente l'ordre de rangement de la série et prend ici la valeur ligne_tableau comme désiré
'exemple de texte sur la série en L14C18'=SERIE(Graphe!L14C3;Graphe!L10C4:L10C12;Graphe!L14C4:L14C12;4)
Selection.FormulaLocal = Cells(14, 18).Text
End Sub