Probléme graph

[Anita]

bonjour forum

je voudrais tracer une courbe a partir de mes donnée qui sont sur une feuille excel

colonne B1 (X)
colonneC1(y)
y = f(x)
j'ai réalisé ce programme et a chaque fois j'ai une erreur indice endehors de la plage et il trace pas la courbe



Dim objChart As Chart, objRange As Range, MaSerie As Series


Set objChart = Charts.Add
objChart.ChartType = xlLineMarkers
objChart.Name = 'Graphique'
objChart.HasLegend = True
Set MaSerie = objChart.SeriesCollection.NewSeries

MaSerie.Values = '=' & Worksheets('Feuil1').Range('C').Columns(2).Address(True, True, xlR2C2, True)
MaSerie.XValues = '=' & Worksheets('Feuil1').Range('B').Columns(2).Address(True, True, xlR2C2, True)

est ce que quelqu'un a une idée?

merci d'avance

 

[MichelXld]

bonjour Anita

tu peux tester cette adaptation


Sub creationGraphique()
Dim objChart As Chart
Dim MaSerie As Series
Dim i As Integer
Dim plage As Range, Plage2 As Range

i = Worksheets('Feuil1').Range('B65536').End(xlUp).Row ' derniere ligne de la colonne B
Set plage = Worksheets('Feuil1').Range('C1:C' & i)
Set Plage2 = Worksheets('Feuil1').Range('B1:B' & i)

Set objChart = Charts.Add
objChart.ChartType = xlLineMarkers
objChart.Name = 'Graphique'
objChart.HasLegend = True

Set MaSerie = objChart.SeriesCollection.NewSeries
MaSerie.Values = plage
MaSerie.XValues = Plage2
End Sub


bonne soiree
MichelXld