spitfire378
XLDnaute Occasionnel
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 🙂
Code:
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