Supprimer une feuille active sauf si....

Vaffancolor -  
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

1 réponse

  1. altashy
    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
    1. Pinzou76
      Je rajouterais, juste avant le End If: 
      Else
    MsgBox("Impossible de supprimer L.1")
      0
    2. altashy
      oui je l'ai mis
      0
    3. Pinzou76
      Mouais, ça n'était pas présent quand j'ai écrit mon commentaire...
      0

Discussions similaires

Enlever le pass. Telecomm. Active
Lisa

3 réponses
Supprimer l'historique de commandes et d'achats sur Amazon
Matthew5

25 réponses