Suppression d'un graphe S'IL EXISTE!

Bonjour,

Je souhaite supprimer un graphe S'IL EXISTE

Code:

---

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

Bonjour,

Une solution consiste à ignorer l'erreur

Code:

---

1 2 3 4 5

On Error Resume Next Sheets("Pressure Plot").Select ActiveWindow.SelectedSheets.Delete On Error Goto 0

---

Salut, à adapter

Code:

---

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

---

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:

---

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..

Salut, à tester et adapter

Code:

---

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

---

Essais comme cela

Code:

---

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

---

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:

---

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

Mille merci pour ces nombreuses reponses. c'est enrichissant toutes ces idees... :plusser:

:merci: :merci:


:resolu:

Bonjour,

Citation:

---

Envoyé par Kiki29

Code:

---

FeuilleExiste = Sheets(sNom).Name <> ""

---

---

belle écriture qui évite les soucis de casse :ccool:
http://www.developpez.net/forums/d12...es-existent/#6

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