XL 2016 Suppression onglet par boite de dialogue

Yamafx · 9 Juin 2020

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 · 9 Juin 2020

Bonjour Yamafx

Une suggestion:

VB:

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

pierrejean · 9 Juin 2020

Bonjour Yamafx

Une suggestion:

VB:

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 · 9 Juin 2020

Bonjour
Sans boite de dialogue

A+ François

Yamafx · 11 Juin 2020

pierrejean à dit:

Bonjour Yamafx

Une suggestion:

VB:

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

XL 2016 Suppression onglet par boite de dialogue

Yamafx

XLDnaute Nouveau

Pièces jointes

pierrejean

pierrejean

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

Pièces jointes

Yamafx

XLDnaute Nouveau

Discussions similaires