Créer un intercalaire grace a une liste

[badagou04]

Bonjour,
Je viens de créer une liste déroulante, suite a sa j'aimerai que quand je choisisse par exemple le premier choix de la liste, une feuille se crée avec comme titre l'intitulé de mon choix dans la liste.

Par exemple: Je choisi dans la liste le choix "A1", une feuille se créer au nom de "A1".

En vous remerciant bonne journée🙂

 

[DoubleZero]

Re : Créer un intercalaire grace a une liste

Bonjour à toutes et à tous,

Bienvenue sur XLD, badagou04.

En l'absence de fichier exemple 🙄, sans donnée confidentielle, ci-après, un code à adapter.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo fin
    If Not Intersect(Target, Range("a2:a11")) Is Nothing Then Sheets.Add(After:=ActiveSheet).Name = Target
    Sheets("Feuil1").Activate
    Exit Sub
fin:
    Application.EnableEvents = False: Application.DisplayAlerts = False
    ActiveSheet.Delete
    Sheets("Feuil1").Activate
    Target.ClearContents
    Application.EnableEvents = True: Application.DisplayAlerts = True
End Sub

A bientôt 🙂