pbm charts

[flagada johns]

voila mon probleme ca ne marche pas si vous pouvez m aider je vous en serais tres reconnaissant. mercvi

Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets('outputs').Range('A10')
ActiveChart.Name = 'xz'
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = '=outputs!R5C3:R2005C3'
ActiveChart.SeriesCollection(1).Values = '=outputs!R5C5:R2005C5'
ActiveChart.SeriesCollection(1).Name = '=''before pressure'''
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = '=outputs!R5C8:R2005C8'
ActiveChart.SeriesCollection(2).Values = '=outputs!R5C10:R2005C10'
ActiveChart.SeriesCollection(2).Name = '=''after temperature'''
ActiveChart.Location Where:=xlLocationAsObject, Name:='outputs'
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = 'xz'
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 'x'
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 'z'
End With
'chartname1 = ActiveChart.Name
'ActiveSheet.Shapes(chartname1).IncrementLeft -1
'ActiveSheet.Shapes(chartname1).IncrementTop -2
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = -100
.MaximumScale = 100
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
End With

 

[MichelXld]

bonsoir

voila mon probleme ca ne marche pas

qu'est ce qui ne marche ?
tu as un message d'erreur ? si oui , lequel ?
peux tu joindre un fichier exemple sans données confidentielles pour faire des essais ?


bonne soirée
MichelXld