Supprimer une feuille active sauf si....

Vaffancolor Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Pinzou76 Messages postés 614 Date d'inscription   Statut Membre Dernière intervention   -
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 36 Date d'inscription   Statut Membre Dernière intervention   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 614 Date d'inscription   Statut Membre Dernière intervention   192
 
Je rajouterais, juste avant le End If:
Else
    MsgBox("Impossible de supprimer L.1")
0
altashy Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   2
 
oui je l'ai mis
0
Pinzou76 Messages postés 614 Date d'inscription   Statut Membre Dernière intervention   192
 
Mouais, ça n'était pas présent quand j'ai écrit mon commentaire...
0