Supprimer une feuille active sauf si....

Vaffancolor Messages postés 3 Statut Membre -  
Pinzou76 Messages postés 750 Statut Membre -
Bonjour à tous,

je suis à la recherche d'une macro qui me permette de supprimer la feuille active, sauf si elle s'appelle "L.1".
Si on active la macro dans la feuille "L.1", j'aimerai avoir un message box qui dit "Impossible de supprimer L.1".

Voila, je précise que je suis novice sur VBA.

Merci
A voir également:

1 réponse

altashy Messages postés 42 Statut Membre 2
 
Bonjour à toi,

If ActiveSheet.Name <> "L.1" Then
'enlève message de confirmation
Application.DisplayAlerts = False
'supprime la feuille
Sheets(ActiveSheet.Name).Delete
Else
MsgBox "impossible de supprimer L.1"
End If

Voilà, tout est dit :D
0
Pinzou76 Messages postés 750 Statut Membre 192
 
Je rajouterais, juste avant le End If:
Else
    MsgBox("Impossible de supprimer L.1")
0
altashy Messages postés 42 Statut Membre 2
 
oui je l'ai mis
0
Pinzou76 Messages postés 750 Statut Membre 192
 
Mouais, ça n'était pas présent quand j'ai écrit mon commentaire...
0