[Excel] Suppression d'un Worksheet seul. si existant

Bonjour!

Ayant fais une macro afin de sortir un graphique sur un nouveau "worksheet" (appellée "Graphique") à partir d'une table donnée, j'ai cependant un problème lorsque l'on relance cette macro alors que celui-ci existe déjà...

Il y a t'il un moyen de dire "Si worksheet "Graphique" existe déja, créer Graphique2" et ainsi de suite!

Merci pour vos réponses ;)

Non, mais si tu n'as qu'une seule feuille "Graphique", tu peux faire

Code:

---

1 2 3 4 5

For Each LaFeuille In ActiveWorkbook.Sheets Application.DisplayAlerts = False If InStr(LCase(LaFeuille.Name), "graphique") <> 0 Then LaFeuille.Delete Application.DisplayAlerts = True Next

---

Edit
Application.DisplayAlerts pour ne pas avoir de demande de confirmation

Citation:

---

Envoyé par Ken.L

....
Il y a t'il un moyen de dire "Si worksheet "Graphique" existe déja, créer Graphique2" et ainsi de suite!...

---

oui ... :


en t'inspirant du code Existence d'un onglet Excel ..

tu te crée une petite fonction de test d'existence d'une feuille (dans classeur courant) :

Code:

---

1 2 3 4 5 6 7

Function FeuilleExiste(stNomFeuille As String) On Error Resume Next Set Ws = Sheets(stNomFeuille) FeuilleExiste = Not (Ws Is Nothing) Set Ws = Nothing End Function

---

puis à l'aide d'une boucle tu recherche le premier nom libre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ChecheFeuille() Dim stNomFeuille As String Dim i As Integer Const RACINE = "Graphique" stNomFeuille = RACINE i = 1 While FeuilleExiste(stNomFeuille) i = i + 1 stNomFeuille = RACINE & i Wend MsgBox "On prends le nom : " & stNomFeuille   End Sub

---

Excellent!


et désolé pour avoir skippé ce post, j'avais fais mes petites recherches mais pas assez apparement...


Encore merci pour vos réponses! (aussi rapides ;) )