Bonjour
J'ai utilisé ce code:
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("L5000:L65530"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Courant Fusible"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Temps"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Courant"
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = False
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False
Windows("balise2.xls").SmallScroll Down:=6
ActiveSheet.Shapes("Graphique 13").IncrementLeft -183#
ActiveSheet.Shapes("Graphique 13").IncrementTop 211.5
Windows("balise2.xls").SmallScroll Down:=12
ActiveChart.SeriesCollection(1).Select
Et la ligne ".HasTitle = True" n'est pas reconnu.
La méthose 'HasTitle' de l'objet '_Chart' a échoué. Erreur 1004.
D'ou viendrait le problème ?
Merci d'avance.
Bonne journée.
Loic
J'ai utilisé ce code:
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("L5000:L65530"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Courant Fusible"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Temps"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Courant"
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = False
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False
Windows("balise2.xls").SmallScroll Down:=6
ActiveSheet.Shapes("Graphique 13").IncrementLeft -183#
ActiveSheet.Shapes("Graphique 13").IncrementTop 211.5
Windows("balise2.xls").SmallScroll Down:=12
ActiveChart.SeriesCollection(1).Select
Et la ligne ".HasTitle = True" n'est pas reconnu.
La méthose 'HasTitle' de l'objet '_Chart' a échoué. Erreur 1004.
D'ou viendrait le problème ?
Merci d'avance.
Bonne journée.
Loic