XL 2016 Créer deux pages nommées

[Racouet]

Bonjour,

Je souhaite par macro, dés que l'utilisateur crée une feuille nommer cette feuille avec un inputbox et créer une seconde feuille automatiquement qui portera le nom Tab_ +réponse de l'inputbox. Or j'utilise une Private Sub Workbook_NewSheet qui se relance automatiquement à la création de la seconde feuille.

Je joints mon fichier Excel. Merci pour votre aide. J'ai pensé utiliser une variable qui changerai de valeur en fonction de la page créée, mais je coince.

Merci pour votre aide

 

[laurent3372]

Il faut désactiver les events avant de créer la nouvelle feuille

    answer = MsgBox("Voullez-vous associer à la préco un tableau des données ?", vbYesNo)
    If answer = vbYes Then
        Application.EnableEvents = False
        Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Tab_" & Titre
        Application.EnableEvents = True
    End If

Cordialement,
--
LR

 

[Racouet]

Super, Merci Laurent. je ne connaissais pas. encore une petite chose apprise et encore une bonne journée.

Bon weekend.