Bonjour,
je viens vers vous parce que je n'arrive pas à faire ce que je veux !
Je m'explique je veux faire un graphique "nuage de points" d'un ensemble de données.
Pour l'instant tout va bien.
J'arrive à faire le graphique sur une nouvelle feuille mais j'aimerais le faire sur la feuille active...
Voici mon code :
ca bloque la ou c'est en rouge ...
Merci d'avance !
je viens vers vous parce que je n'arrive pas à faire ce que je veux !
Je m'explique je veux faire un graphique "nuage de points" d'un ensemble de données.
Pour l'instant tout va bien.
J'arrive à faire le graphique sur une nouvelle feuille mais j'aimerais le faire sur la feuille active...
Voici mon code :
Code:
Sub gra()
'tracer le graphique
Set gr = Workbooks("Mesure.xlsx").Sheets("Marne").ChartObjects.Add(140, 10, 500, 300)
With gr
Set XValues = Range("D4:D10")
Set Values = Range("L4:L10")
[COLOR="#B22222"].SetSourceData Source:=Sheets("Marne").Range("D4:D10,L4:L10"), PlotBy:=xlColumns[/COLOR]
.ChartType = xlXYScatter
ActiveChart.SeriesCollection(1).XValues = XValues
ActiveChart.SeriesCollection(1).Values = Values
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "pk (km)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = " Chla (µg/l)"
.PlotArea.Interior.ColorIndex = 2
.Axes(xlValue).MajorGridlines.Border.LineStyle = xlDot
.ChartArea.Font.Size = 14
.Deselect
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ActiveChart.SeriesCollection(2).Delete
gr.Delete
Application.DisplayAlerts = True
End Sub
ca bloque la ou c'est en rouge ...
Merci d'avance !
Dernière édition: