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

1 réponse

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

Discussions similaires

Enlever le pass. Telecomm. Active
Lisa -
Yves -

3 réponses
Message ne s'envoie pas données mobiles Redmi
Eric -
FalkenHarlais -

4 réponses
Supprimer l'historique de commandes et d'achats sur Amazon
Matthew5 -
Adraen -

25 réponses