Suppression d'onglets macro

Bonjour,


Je souhaite supprimer des onglets après avoir traité un certains nombres d'opérations.
J'ai créer une macro mais si j'active de nouveau la macro, forcement elle plante (puisque les onglets n'existent plus). Je souhaiterais avoir un avertissement qui me dit que les onglets n'exitent pas avec une boite de dialogue.
Les onglets s'appellent "od & od1".

merci

Salut Crebuffet,

Ci-dessous un code que j'ai dans une macro et qui me vérifie l'existence d'un onglet. A adapter et insérer dans le module Worksheet à l'ouverture.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Workbook_Open()   Dim WS As Worksheet Dim WSname As String Dim Found As Boolean   WSname = "od"   For Each WS In Worksheets If WS.Name = WSname Then Found = True Sheets("od").Select End If Next   If Not Found Then MsgBox "Feuille '" & WSname & "' non trouvée !, "Vérification de l'existence de l'onglet od" End If   End Sub

---

Voilà voilà, fait de même avec od1 et ça devrait être ok !

Citation:

---

Envoyé par Runsh63

Voilà voilà, fait de même avec od1 et ça devrait être ok !

---

Tu peux même le faire en une fois en changeant:

Code:

---

If WS.Name = WSname Then

---

par:

Code:

---

If WS.Name Like "od*" Then

---

Merci pour cette "feinte" Sclarckone (décidemment toujours pas avare en bon tuyaux) ;)

Bonjour,

Une solution en utilisant la gestion d'erreur

Code:

---

1 2 3

On Error Resume Next Sheets("feuil2").Delete

---