Creation d'une constante d'un graphique avec une seule valeur
S
Bonjour,
Je suis débutante en VBA et je cherche à automatiser la création de graphiques. Je bloque pour la création de constantes (du type y=valeur) avec une seule valeur (ex : y=135) etje ne peux pas rajouter de colonne en parallèle et baser la création d'une nouvelle série dessus. J'ai essayé ce code pour une des constantes mais cela ne marche pas, et "détruit" tout le graphique...
Sub creationgraphique()
Dim Workbook As Workbook
Dim feuille_datas As Worksheet
'graphique
Dim c As ChartObject, Titre As String
Set Workbook = ThisWorkbook
Set feuille_datas = Workbook.Worksheets.Item("Feuil2")
'definition titre
Titre = feuille_datas.Cells(1, 2)
'creation graphique
Titre = Titre
Set datas1 = feuille_datas.Range(feuille_datas.Cells(5, 2), feuille_datas.Cells(feuille_datas.UsedRange.Rows.Count, 2))
Nominal = "serie2"
Set Nominalt = feuille_datas.Range("B2")
With feuille_datas
Set c = feuille_datas.ChartObjects.Add(Left:=200, Width:=400, Top:=25, Height:=200)
End With
With c.Chart
.HasTitle = True
.HasLegend = False
.ChartTitle.Caption = Titre
.ChartType = xlLine
.SetSourceData Source:=datas1
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = Nominale
.SeriesCollection(1).Values = Nominalt
End With
End Sub
Une image de l'objectif est dans le fichier
Quelqu'un aurait-il une idée ou un conseil ? Merci d'avance