Bonjour,
J'ai un soucis avec mon code, je n'arrive pas à supprimer l'ancien graphique quand je lance la création d'un nouveau graph
Ci-dessous vous trouverez mon code (j'ai utilisé enregistrement macro)
j'ai une deuxième question a vous poser : comment faire pour que le graph apparaît dans une nouvelle feuille
Bien à vous,
Othmane
Sub Macro2enreg()
On Error Resume Next
Sheets(sheGraphique).Delete
On Error GoTo 0
Sheets("Feuille de calculs").Range("X11:Y60").Select
Sheets("Feuille de calculs").Range("Y33").Activate
ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select
ActiveChart.SetSourceData Source:=Range("'Feuille de calculs'!$X$11:$Y$33")
ActiveChart.PlotArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphique 7").IncrementLeft -303.75
ActiveSheet.Shapes("Graphique 7").IncrementTop -54
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveChart.FullSeriesCollection(1).XValues = "='Feuille de calculs'!$Y$11:$Y$33"
ActiveChart.FullSeriesCollection(1).Values = "='Feuille de calculs'!$X$11:$X$33"
ActiveWindow.SmallScroll Down:=-3
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Graphique des pertes de charge du réseau aéraulique"
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Characters.Text = "Pression [Pa]"
End With
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Characters.Text = "Position [m]"
End With
End With
End Sub