XL 2016 Suppression onglet par boite de dialogue

[Yamafx]

Bonjour,

J'ai un fichier excel qui contient 11 onglets.
Dans son utilisation, un seul onglet doit être rempli (variable) et "enregistrer sous" et les autres onglets doivent être supprimés.
L'idéal serait de compléter la macro Entete du fichier qui est associé au bouton FIN.
Je pensais à une boite de dialogue qui demande le nom de l'onglet à conserver et dc qui supprime tous les autres onglets.
C'est faisable ? Je joins le fichier.
Merci pour votre aide,

Yannick

 

[pierrejean]

Bonjour Yamafx

Une suggestion:

Sub Entete()
    With ActiveSheet.PageSetup
        .RightFooter = "Numero de dossier Diplabo : " & [E7]
    End With
    nom = InputBox("Feuille a conserver ?")
    For Each sh In Sheets
       If sh.Name = nom Then existe = True
    Next
    If existe Then
      For Each sh In Sheets
        If sh.Name <> nom Then sh.Delete
      Next
     Else
     MsgBox ("Cette page n'existe pas")
    End If
End Sub

 

[fanfan38]

Bonjour
Sans boite de dialogue

A+ François

 

[Yamafx]

Bonjour Yamafx

Une suggestion:

Sub Entete()
    With ActiveSheet.PageSetup
        .RightFooter = "Numero de dossier Diplabo : " & [E7]
    End With
    nom = InputBox("Feuille a conserver ?")
    For Each sh In Sheets
       If sh.Name = nom Then existe = True
    Next
    If existe Then
      For Each sh In Sheets
        If sh.Name <> nom Then sh.Delete
      Next
     Else
     MsgBox ("Cette page n'existe pas")
    End If
End Sub

Merci beaucoup pour votre aide c'est nickel !


Yannick