Supprimer un graphique s'il existe, sinon le créer [Résolu]

[Vincent32]

Bonjour,

En fouillant sur le forum j'ai trouvé ce code proposé par Mercatog :

Code :

1
2
3
4
5
6
7
8
9
Dim ws as worksheet
nom = ComboBox1.Value
for each ws in worksheets
  if ws.name=nom then
    ws.delete
    exit for
  end if
next ws
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = nom

Cependant je n'arrive pas à l'adapter à mon utilisation (suppression d'un graphique s'il existe sinon le créer)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim G1 As Chart f as workchart
    Dim ws1 As Worksheet
    Dim PlageDonnees1 As Range
    Dim PlageX1 As Range
    Dim PlageY1 As Range
    Dim MaSerie1 As Series
    Dim Compteur1 As Long
    Dim Col1 As Long
    Dim Lig1 As Long
    Dim ws As Worksheet
 
    For Each ws In worksheets
        If ws.Name = ("Graphique") Then
            ws.Delete
            Exit For
        End If
    Next ws
 
    Set G1 = ThisWorkbook.Charts.Add 'Ajout d'une feuille MonGraphe au classeur
        G1.Name = "Graphique"
        G1.ChartArea.Clear 'Effacement des données du graphe
        G1.ChartType = xlXYScatter 'Définition du type de graphique (nuage de points)

Merci pour votre aide

[Daniel.C]

Bonjour,

Je n'ai pas compris si ton graphique est sur une feuille de données ou sur une feuille de graphique.

[Vincent32]

Bonjour Daniel,

Mon graphique est sur une feuille de graphique

[Daniel.C]

Je n'ai touché qu'à la partie suppression :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub test4()
    Dim G1 As Chart
    Dim ws1 As Worksheet
    Dim PlageDonnees1 As Range
    Dim PlageX1 As Range
    Dim PlageY1 As Range
    Dim MaSerie1 As Series
    Dim Compteur1 As Long
    Dim Col1 As Long
    Dim Lig1 As Long
    Dim f As Chart
 
    For Each f In Charts
        If f.Name = ("Graphique") Then
            Application.DisplayAlerts = False
            f.Delete
            Application.DisplayAlerts = True
            Exit For
        End If
    Next f
 
    Set G1 = ThisWorkbook.Charts.Add 'Ajout d'une feuille MonGraphe au classeur
        G1.Name = "Graphique"
        G1.ChartArea.Clear 'Effacement des données du graphe
        G1.ChartType = xlXYScatter 'Définition du type de graphique (nuage de points)
End Sub

[Vincent32]

Ça fonctionne très bien merci beaucoup Daniel.C