suppression onglet (codename)

Bonjour j'ai un problème avec ce code ci-dessous.
quand SH_MONITORING1 existe le débogage du code n'indique pas d'erreur
MAIS dans le cas où la feuille n'existe pas le débogage plante à la ligne SH_MONITORING1.DELETE et indique "erreur de compilation - Variable non définie"

Code:

---

1 2 3 4 5 6 7 8 9

Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets Select Case Sh.CodeName 'Attention : CodeName et ta liste est 'sensible à la casse. Case Is = "SH_MONITORING1" SH_MONITORING1.Delete End Select Next

---

Salut,

L'opérateur Is permet de comparer des références,
par exemple savoir si une instance existe, ou si l'instance est bien celle attendue.

Code:

---

1 2	ThisWorkbook Is Nothing '// Renvoie True si Thisworkbook n'est pas instancié ThisWorkbook Is ActiveWorkbook '// Renvoie true si le classeur courrant est le classeur actif

---

.
Ou, utilisé avec la'opérateur TypeOf, permet de comparer les types de données:

Code:

---

TypeOf ThisWorkbook Is Excel.Workbook '// Renvoie True si ThisWorkbook est de type Excel.Workbook

---

Dans ton cas, tu fais de la simple comparaison de chaînes, l'opérateur Is est inapproprié.
Supprime le.

Bonjour,

il faut utiliser la variable Sh pour manipuler l'objet, et le select case est plutôt préconisé pour du multitraitement.
Un simple if suffit

Code:

---

1 2 3 4 5 6

Sub toto() Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets If Sh.CodeName = "SH_MONITORING1" Then Sh.Delete Next Sh End Sub

---

Merci