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'426
Appréciations reçues : 309
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'426
Appréciations reçues : 309
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é 9 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'426
Appréciations reçues : 309
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é 20 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Supprimer les 0% d'un graphique secteurs
    par alixdl » 27 mai 2014, 10:18 » dans Excel - VBA
    3 Réponses
    268 Vues
    Dernier message par alixdl
    27 mai 2014, 15:07
  • Supprimer valeur nulle graphique
    par leneh » 31 octobre 2019, 10:45 » dans Excel - VBA
    2 Réponses
    27 Vues
    Dernier message par Xmenpl
    31 octobre 2019, 11:01
  • Création Graphique
    par cindoo » 27 juin 2014, 10:50 » dans Excel - VBA
    1 Réponses
    215 Vues
    Dernier message par gmb
    28 juin 2014, 07:17
  • Création d'un graphique
    par kira » 6 décembre 2017, 18:32 » dans Excel - VBA
    3 Réponses
    85 Vues
    Dernier message par ExcelCoreGame
    6 décembre 2017, 23:13
  • création d'un graphique
    par st1 » 6 février 2015, 12:00 » dans Excel - VBA
    5 Réponses
    251 Vues
    Dernier message par Jean-Eric
    7 février 2015, 08:56
  • Creation graphique
    par cobra13530 » 28 mai 2014, 16:13 » dans Excel - VBA
    1 Réponses
    314 Vues
    Dernier message par jmd
    28 mai 2014, 20:26