Bonjour,

J'aimerais réalisé un code qui me parais assez irréaliste, je m'explique j'ai un USF qui ajoute un onglet avec cet partie de code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Ajoute  les onglets
Private Sub CommandButton1_Click() ' Bouton Valide
    If TextBox1 <> "" Then
        Sheets.Add
        On Error Resume Next
        ActiveSheet.Name = TextBox1
        If Err <> 0 Then
            On Error GoTo 0
            Application.DisplayAlerts = False
            ActiveSheet.Delete
            Application.DisplayAlerts = True
            MsgBox " Nom de feuille incorrect"
            TextBox1 = ""
            Exit Sub
        End If
        ActiveSheet.Move After:=Sheets(ActiveWorkbook.Worksheets.Count) ' Placer la feuille à la suite
        Sheets("Accueil").Range("A1").Copy ActiveSheet.Range("A1") ' avec lien vers la feuille accueil
        'Unload Me
        Sheets("Accueil").Activate
    End If
 
End Sub
Se que j'aimerai faire, est que lorsque l'onglet est créer qui m'affiche sur la feuille le nom de l'onglet.

Merci d'avance

Cordialement

Max