Comment renommer plusieurs feuilles de calcul dans Excel ?

Normalement, pour renommer des feuilles de calcul dans Excel, nous pouvons rapidement double-cliquer sur l'onglet de la feuille ou faire un clic droit sur l'onglet de la feuille et choisir la commande Renommer. C'est assez pratique pour renommer une ou deux feuilles dans Excel, mais si nous voulons renommer plusieurs feuilles en une seule opération, comment pouvons-nous procéder ?

Utiliser la commande Renommer pour renommer les feuilles de calcul

Utiliser un outil pratique pour renommer facilement plusieurs feuilles de calcul

Utiliser du code VBA pour renommer plusieurs feuilles de calcul

Utiliser la commande Renommer pour renommer les feuilles de calcul

Nous pouvons rapidement renommer des feuilles de calcul dans Excel avec la commande Renommer selon les procédures suivantes :

Faites un clic droit sur l'onglet de la feuille que vous souhaitez renommer, puis choisissez la commande Renommer dans le menu contextuel. Ou double-cliquez sur l'onglet de la feuille pour renommer la feuille de calcul. Ensuite, tapez un nouveau nom, puis appuyez sur la touche Entrée pour le renommer, voir capture d'écran :

Avec cette commande Renommer, vous ne pouvez renommer qu'une seule feuille de calcul à la fois. Pour renommer plusieurs feuilles de calcul, veuillez répéter les opérations ci-dessus.

Utiliser un outil pratique pour renommer facilement plusieurs feuilles de calcul

Utiliser du code VBA pour renommer plusieurs feuilles de calcul

Je vais ici vous présenter deux codes VBA pour renommer plusieurs feuilles de calcul.

Code 1. Code VBA pour renommer plusieurs feuilles de calcul avec le nom souhaité en une seule fois

En utilisant le code VBA suivant, vous pouvez rapidement renommer toutes les feuilles de calcul du classeur actuel avec le même préfixe dans leurs noms de feuilles de calcul, par exemple : KTE-commande1, KTE-commande2, et KTE-commande3…

1. Cliquez sur Développeur > Visual Basic, puis cliquez sur Insérer > Module dans la fenêtre Microsoft Visual Basic Application Windows.

2. Copiez et collez le code suivant dans le Module.

VBA : Renommer toutes les feuilles en entrant un nom spécifique

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  Cliquez  sur le bouton pour exécuter le code et entrez le nom souhaité dans la boîte de dialogue qui apparaît. Voir captures d'écran :

4. Cliquez sur OK. Vous verrez ensuite que toutes les feuilles sont renommées.

2. Code VBA pour renommer plusieurs feuilles de calcul avec une valeur de cellule spécifique dans chaque feuille du classeur actif

En utilisant le code VBA suivant, il renommera toutes les feuilles de calcul du classeur actuel en utilisant le contenu d'une cellule spécifique. Par exemple, vous pouvez taper le nom de la feuille de calcul dans la cellule A1 de tout le classeur, et la feuille sera alors renommée selon la valeur de la cellule A1.

1.  Spécifiez une cellule pour contenir le nom de la feuille de calcul dans chaque feuille et tapez le nom de la feuille dedans. Dans cet exemple, je taperai le nom de la feuille dans la cellule A1 de chaque feuille.

2.  Cliquez sur Développeur > Visual Basic, puis cliquez sur Insérer > Module dans la fenêtre Microsoft Visual Basic Application Windows.

3.  Copiez et collez le code suivant dans le Module.

VBA : Renommer les feuilles de calcul par le contenu d'une cellule spécifique

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  Cliquez  sur le bouton pour exécuter le code. Toutes les feuilles sont renommées en fonction du contenu de la cellule A1.

Démo : Renommer plusieurs feuilles de calcul avec Kutools pour Excel

Articles connexes