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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
o
othmane_007_007
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 4 janvier 2018
Version d'Excel : 2016 FR

Message par othmane_007_007 » 8 janvier 2018, 14:23

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
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'835
Appréciations reçues : 363
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 8 janvier 2018, 15:02

Bonjour
othmane_007_007 a écrit :
8 janvier 2018, 14:23
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 !
o
othmane_007_007
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 4 janvier 2018
Version d'Excel : 2016 FR

Message par othmane_007_007 » 8 janvier 2018, 16:16

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,
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'835
Appréciations reçues : 363
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 8 janvier 2018, 16:25

othmane_007_007 a écrit :
8 janvier 2018, 16:16
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 !
o
othmane_007_007
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 4 janvier 2018
Version d'Excel : 2016 FR

Message par othmane_007_007 » 8 janvier 2018, 20:07

Bonsoir,

Merci infiniment pour votre aide !

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

Bien à vous,
test graph.xlsm
(26.52 Kio) Téléchargé 10 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'835
Appréciations reçues : 363
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 8 janvier 2018, 20:56

Un essai à tester. Te convient-il ?
Bye !
test graph v2.xlsm
(33.19 Kio) Téléchargé 33 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message