Discussion :

[developpeur82]

Bonjour,

Je souhaite supprimer un graphe S'IL EXISTE

Code :

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

1
2
Sheets("Pressure Plot").Select
ActiveWindow.SelectedSheets.Delete

Le probleme est que je ne sais pas comment mettre une condition sur l'existance du Graphe "Pressure Plot" pour le supprimer.

Merci d'avance pour votre aide

[jfontaine]

Bonjour,

Une solution consiste à ignorer l'erreur

Code :

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

1
2
3
4
5
 
On Error Resume Next
Sheets("Pressure Plot").Select
ActiveWindow.SelectedSheets.Delete
On Error Goto 0

[kiki29]

Salut, à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Function FeuilleExiste(ByVal sNom As String) As Boolean
    On Error Resume Next
    FeuilleExiste = Sheets(sNom).Name <> ""
    Err.Clear
End Function
 
Sub tst()
    Debug.Print FeuilleExiste("Pressure Plot")
End Sub

[developpeur82]

Merci a tous,

ce code fonctionne si "Pressure Plot" existe deja donc je le supprime (l'ancien dans le workbook) au debut du code ensuite je le recrée.

Code :

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

1
2
3
4
5
6
7
8
On Error Resume Next
Sheets("Pressure Plot").Select
ActiveWindow.SelectedSheets.Delete
On Error GoTo 0
 
Charts.Add
ActiveChart.Name = "Pressure Plot"
ActiveChart.ChartType = xlLine

Par contre si le graphe n'existe pas il genere le snap joint (il me propose de supprimer la feuille selectionné; pas le graphique!). il faut cliquer sur Cancel pour le créer (le graphe). Alors que je souhaite qu'il le crée tout simplement s'il n'existe pas..

Enfin je veux qu'il le crée simplement s'il n'existe pas et qu'il le supprime et le recrée s'il existe..

[kiki29]

Salut, à tester et adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    If FeuilleExiste("Pressure Plot") Then
        Application.DisplayAlerts = False
        Sheets("Pressure Plot").Select
        ActiveWindow.SelectedSheets.Delete
        Application.DisplayAlerts = True
 
        Charts.Add
        ActiveChart.Name = "Pressure Plot"
        ActiveChart.ChartType = xlLine
        Else
        '.....
    End If

[jfontaine]

Essais comme cela

Code :

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

1
2
3
4
5
6
7
8
9
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Pressure Plot").Delete
Application.DisplayAlerts = True
On Error GoTo 0
 
Charts.Add
ActiveChart.Name = "Pressure Plot"
ActiveChart.ChartType = xlLine

[Didier Gonard]

Bonjour,

il y a des écoles qui honnissent les traitements d'erreur dérivés à des fins pirouettiques (cf certains articles DVP), sans forcément aller jusque là, je suis pour les éviter si possible.

Après c'est selon le contexte du traitement, unique ou non etc...
je verrais donc les choses ainsi sauf dans le cas où developpeur82 aurait un grand nombre de feuilles de graph qui rendraient la boucle trop lourde.....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Sub gogo()
    Call Ajout
End Sub
 
 
Sub Ajout()
Dim Cible As Chart
 
For Each Cible In ThisWorkbook.Charts 'ou pas Thisworkbook...
    If Cible.Name = "Pressure Plot" Then
        Application.DisplayAlerts = False
        Cible.Delete
        Application.DisplayAlerts = True
        Exit For
    End If
Next Cible
Charts.Add
ActiveChart.Name = "Pressure Plot"
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier