Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment ajouter une nouvelle feuille avec un nom spécifique dans Excel?

Parfois, vous voulez créer une nouvelle feuille et la nommer automatiquement avec un nom spécifique dans Excel. Dans cet article, nous allons vous montrer deux méthodes d'ajout d'une nouvelle feuille avec un nom spécifique dans le classeur en cours, ainsi que la création d'une feuille de calcul avec un nom spécifique dans un nouveau classeur dans Excel.

Ajout automatique d'une nouvelle feuille avec un nom spécifique dans le classeur en cours avec le code VBA

Ajout automatique d'une nouvelle feuille avec un nom spécifique dans un nouveau classeur avec Kutools for Excel


Ajout automatique d'une nouvelle feuille avec un nom spécifique dans le classeur en cours avec le code VBA


Vous pouvez ajouter une nouvelle feuille avec un certain nom à la fin du classeur en cours avec le code VBA suivant.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module.

3. Copiez et collez ci-dessous le code VBA dans le Module fenêtre.

Code VBA: ajouter une nouvelle feuille avec un nom spécifique à la fin du classeur en cours

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4. presse F5 clé pour exécuter le code. Dans le popping up Kutools for Excel boîte de dialogue, entrez un nom pour cette feuille, puis cliquez sur le OK bouton. Voir la capture d'écran:

Ensuite, une nouvelle feuille de calcul est créée avec un nom spécifique et située à la fin du classeur en cours.


Ajout automatique d'une nouvelle feuille avec un nom spécifique dans un nouveau classeur avec Kutools for Excel

Dans cette section, nous allons présenter le Créer des feuilles de travail de séquence utilité de Kutools for Excel. Avec cet utilitaire, vous pouvez facilement ajouter une nouvelle feuille avec un nom spécifique dans un nouveau classeur.

Kutools for Excel : avec plus que 300 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60.

1. Pour ajouter une nouvelle feuille avec un nom spécifique, vous devez saisir ce nom dans une cellule à l'avance. Et puis cliquez Entreprise > Feuille > Créer des feuilles de travail de séquence. Voir la capture d'écran:

2. dans le Créer des feuilles de travail de séquence boîte de dialogue, sélectionnez Feuille de calcul vide le Feuille de travail de base liste déroulante, sélectionnez Donnéesdans une gamme option, et spécifiez la cellule qui contient le nom de la feuille de calcul, puis cliquez sur OK bouton. Voir la capture d'écran:

Ensuite, une nouvelle feuille de calcul avec ce nom spécifique d'une cellule est immédiatement créée dans un nouveau classeur.

Remarques:

1. Si vous souhaitez créer plusieurs nouvelles feuilles avec des noms spécifiques en même temps, entrez ces noms dans les cellules une par une, puis sélectionnez ces cellules dans le champ. Données dans une plage boîte.

2. Vous pouvez également créer des feuilles de calcul de séquence à partir d'un numéro de série ou d'une liste personnalisée avec ce Créer des feuilles de travail de séquence utilitaire. Voir la capture d'écran:

Pointe.Si vous voulez avoir un essai gratuit de cet utilitaire, allez à téléchargez le logiciel librement d'abord, puis allez appliquer l'opération selon les étapes ci-dessus.



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    guest · 7 months ago
    Hi, this does not properly account for user clicking cancel. It still creates worksheet.
    • To post as a guest, your comment is unpublished.
      crystal · 6 months ago
      Hi
      The code has been updated with the problem solving. Please have a try and thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Lowri · 9 months ago
    Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

    Thanks
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Good day,
      Please try the below VBA code. Hope it can help. Thanks for your comment.

      Sub CreateSheet()
      Dim xName As String
      Dim xSht As Object
      Dim xNWS As Worksheet
      On Error Resume Next
      xName = Application.InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
      If xName = "" Then Exit Sub
      Set xSht = Sheets(xName)
      If Not xSht Is Nothing Then
      MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
      Exit Sub
      End If
      ActiveSheet.Copy after:=Sheets(Sheets.count)
      Set xNWS = Sheets(Sheets.count)
      xNWS.Name = xName
      End Sub
      • To post as a guest, your comment is unpublished.
        Lowri · 7 months ago
        Thank you for your reply crystal! I have it working now :)