Discussion :

[rossemma]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[deedolith]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rossemma]

Merci