Graph avec deux series

[Gabriella]

Bonjour forum

j'ai réalisé ce code pour tracer une courbe. mais quand le nombre de données dépassent 32000 il coupe les données.

Est ce que vous avez une idée pour faire une graphe avec deux series

Dim appExcel As excel.Application
Dim wbExcel As excel.Workbook 'Classeur Excel
Dim wsExcel As excel.Worksheet 'Feuille Excel
Dim objChart As Chart, objRange As Range, MaSerie As Series
Dim chemin As String
Set appExcel = CreateObject('Excel.Application')
chemin = Text1.Text
Workbooks.OpenText FileName:=chemin, Origin:=xlWindows, _
StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False, Space:=True, Other:=True, FieldInfo:=Array(1, 1) 'TrailingMinusNumbers:=True

Set objChart = Charts.Add
objChart.ChartType = xlXYScatterSmooth
objChart.Name = 'toto'
objChart.HasLegend = True

Set MaSerie = objChart.SeriesCollection.NewSeries
MaSerie.Values = '=' & Worksheets(1).Range('F:F').Columns(1).Address(True, True, xlR1C5, True)

MinimumScale = ' =Min(F:F)'
MaximumScale = '= Max(F:F)'

MaSerie.XValues = '=' & Worksheets(1).Range('E:E').Columns(1).Address(True, True, xlR1C6, True)

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = 'allongement en fonction du temps'
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 'blabla'
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 'tata'
End With


Set appExcel = Nothing

merci d'avance

 

[Gael]

Bonsoir gabriella,

je ne suis pas spécialiste en VBA mais ta macro n'est peut-être pas en cause car ton problème me paraît lié aux limitation XL.

Si tu fais une recherche avec l'aide sur le mot 'Limites' puis ti choisis 'Configuration requise pour XL' dans les limitations graphiques il est bien précisé:

Points de données par série de données pour les graphiques 2-D 32 000

ce qui correspond bien à l'erreur que tu rencontres.

@+

Gael