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
