Discussion :

[ggvert]

Bonjour, tout est dans le titre, je crée un graphique en spécifiant la plage de données qui constitue la source, mais je souhaiterais par la suite effacer ces données une fois le graph construit. Or si je les efface cela affecte le graph car la liaison entre celui-ci et l'emplacement des données est "permanent".

je voulais donc savoir comment arrêter la MAJ auto du graph...

Merci bien

[7ider5]

Bonjour,

As-tu essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

?

[pgz]

Bonjour.

Tu pourrais mettre tes données sur une feuille masquée.
Sinon, tu peux envoyer les valeurs pour chaque série.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonChart.SeriesCollection(1).Values = ...

... est une liste de données comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Array(5,2,3,...)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWOrkbook.WOrksheets("MaFeuille").Range("A3:U3").Value

En un mot, tu remplaces l'adresses des plages par des valeurs.

Cordialement,

PGZ

[ctac_]

Bonjour,

Peut être comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub GraphiqueFixe()
    ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
        .ChartType = xlXYScatterLines
        .SetSourceData ActiveSheet.Range("A1:A8")
        .SeriesCollection(1).Values = .SeriesCollection(1).Values
    End With
End Sub

ctac

[ggvert]

Bonjour,

Peut être comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub GraphiqueFixe()
    ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
        .ChartType = xlXYScatterLines
        .SetSourceData ActiveSheet.Range("A1:A8")
        .SeriesCollection(1).Values = .SeriesCollection(1).Values
    End With
End Sub

ctac

un grand merci !