Condition création de feuille

Bonjour à tous

Je ne trouve pas la façon pour créé une contition si une feuille existe et si oui la supprimer

Du style

Code:

---

1 2 3 4 5

If NomFeuille Existe Then   Supprimer Nom feuille   End If

---

Je précise que les noms des feuilles sont renommer par une variable.

merci

Bonjour
plus simple
Tu veux supprimer la feuille bob tu lui dit : supprime la feuille bob et si tu la trouve pas ne viens pas me casser les .... avec une erreur

Code:

---

1 2 3 4 5 6 7

Dim nomfeuille as string Nomfeuille="Nom de ta feuille" Application.DisplayAlerts=false 'pas de demande de confirmation on error resume next 'en cas d'erreur continu Sheets(Nomfeuille).delete on error goto 0 'en cas d'erreur comporte toi normalement Application.DisplayAlerts=True

---

Salut Krovax et le forum
Personnellement, j'aurais plutôt employé "on error resume next" et "on error goto 0" mais chacun sa méthode.
Par contre, si tu veux savoir si elle existe pour tavailler dessus, il existe plusieurs méthodes.
A+

Bonjour,

A chacun sa méthode, avant de créer on peut aussi tester tous les noms existant, je sais c'est lourd.

Un exemple extrait d'un focntion perso, Mysheet, le nom de la feuille a créer, Mydel un booléen si 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

Function Add_sheet(ByVal MySheet As String, Optional Mydel As Boolean) As Boolean Dim F1 As Worksheet For Each F1 In Sheets If F1.Name = MySheet Then If Mydel Then F1.Delete Exit For End If   MsgBox "La feuille " & F1.Name & " existe déja", vbInformation, "Classeur " & F1.Parent.Name Exit Function End If   Next   ' ------------------------------- ' ' Ajout de l'onglet ' ------------------------------- ' Set F1 = Sheets.Add(After:=Sheets(Sheets.Count)) F1.Name = MySheet   Add_sheet = True   End Function

---