Suppresion feuille active

[Citaro]

Bonjour au forum,
Dans mon classeur j'ai une macro pour ajouter des feuilles suivant un modèle, une autre pour supprimer les feuilles.
Je rencontre un soucis avec la suppression qui me supprime plusieurs feuilles au lieu de la feuille active.
Je cherche aussi à avoir un message de confirmation de suppression

Bonne journée
Citaro

 

[Chris401]

Re : Suppresion feuille active

Bonjour

Quelque chose de ce style

Sub supprimer()
    With ActiveSheet
        If .Name = "modele" Or .Name = "Total amort." Or .Name = "Feuil2" Then Exit Sub
        ActiveSheet.Delete
    End With
End Sub

Cordialement
Chris

 

[xylomyd]

Re : Suppresion feuille active

Bonjour,

Essaye cela avec Message

Sub supprimer()
Dim Mess As String
Application.DisplayAlerts = False
    If ActiveSheet.Name <> "modele" And ActiveSheet.Name <> "Total amort." And ActiveSheet.Name <> "Feuil2" Then
    Mess = MsgBox("êtes vous sur de vouloir supprimer la feuille " & ActiveSheet.Name & "?", vbYesNo + vbInformation, "Supression")
    If Mess = vbNo Then Exit Sub
    ActiveSheet.Delete
    End If
Application.DisplayAlerts= true
End Sub

Bonne journée

Bonne journée

 

[Citaro]

Re : Suppresion feuille active

Bonsoir Chris401 et xylomyd,

Vos 2 codes fonctionnent très bien, le second a le message en plus
Merci à vous 2