Supprimer le graphique précédent à chaque création d'un nouveau graphique

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

Bonjour

je n'arrive pas à supprimer l'ancien graphique quand je lance la création d'un nouveau graph

Le mieux est encore de garder le même graphique mais de le mettre à jour chaque fois que tu modifies une au moins des données dont il dépend....

Bye !

Bonjour,

Merci pour votre réponse !

C'est une bonne idée, est ce que vous connaissez de mémoire la fonctionnalité permettant de faire ceci

Bien à vous,

est ce que vous connaissez de mémoire la fonctionnalité permettant de faire ceci

De mémoire, non !

Mais je peux essayer de l'adapter à ton graphique si tu joins son fichier.

Bye !

Bonsoir,

Merci infiniment pour votre aide !

Voici mon fichier graph, les données sont au niveau de la colonne S

Bien à vous,

22test-graph.xlsm (26.52 Ko)

Un essai à tester. Te convient-il ?

Bye !

100test-graph-v2.xlsm (33.19 Ko)
Rechercher des sujets similaires à "supprimer graphique precedent chaque creation nouveau"