Test sur suppresion

[spitfire378]

ReReBonjour, je cherche a créer un code conditionnant la suppression d'une feuille. Si la feuille sélectionnée est "Modele", un message avertit l'utilisateur que celle-ci ne peut-être supprimée, sinon la feuille est supprimée. Mais voila mon code ci-dessous ne fonctionne pas. Avez vous une idée? Merci a vous

Sub supprimer()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Sheets("Modele") Then
MsgBox ("Vous ne pouvez pas supprimer cette feuille")
Else
ActiveWindow.SelectedSheets.Delete
Range("A1").Select
End If
End Sub

 

[tototiti2008]

Re : Test sur suppresion

Bonjour spitfire,

comme je ne connais pas d'évènement "Suppression de feuille", je ne vois pas trop comment réaliser ça proprement.
seule piste : si tu protèges le classeur, tu interdis la suppression des feuilles.