Comment renommer plusieurs feuilles de calcul à la fois dans Excel ?

Pour renommer des feuilles de calcul dans Excel, il suffit généralement de double-cliquer rapidement sur l’onglet de la feuille ou d’effectuer un clic droit dessus et de choisir la commande **Renommer**. C’est une solution rapide et pratique pour modifier le nom d’une ou deux feuilles, mais comment faire lorsqu’on souhaite renommer plusieurs feuilles en une seule opération ?

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

On peut rapidement Renommer les feuilles de calcul dans Excel à l’aide de la commande Renommerselon la procédure suivante :

Effectuez un clic droit sur l’onglet de la feuille que vous souhaitez renommer, puis choisissez la commande Renommer dans le menu contextuel. Vous pouvez également double-cliquer directement sur l’onglet pour le renommer. Saisissez ensuite un nouveau nom, puis appuyez sur la touche Entrée pour valider. Voir la capture d’écran :

Grâce à la commande Renommer, vous ne pouvez modifier le nom que d’une seule feuille à la fois. Pour renommer plusieurs feuilles, répétez simplement les étapes 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 maintenant vous présenter deux codes VBA pour renommer plusieurs feuilles de calcul en toute simplicité.

Code 1. Code VBA pour renommer plusieurs feuilles simultanément selon le nom de votre choix

À l’aide du code VBA suivant, vous pouvez renommer rapidement toutes les feuilles du Classeur actuel avec le même préfixe dans leurs Nom de la feuille de calcul, par exemple : KTE-commande1, KTE-commande 2 et KTE-commande 3…

1. Cliquez sur Développeur > Visual Basic, puis cliquez sur Insertion > Module dans l’application Microsoft Visual Basic pour Applications Windows.

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

VBA : Renommer toutes les feuilles en saisissant 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, puis saisissez le nom souhaité dans la boîte de dialogue qui s’affiche. Voir les captures d’écran :

4. Cliquez sur OK. Toutes les feuilles seront alors renommées.

2. Code VBA pour renommer plusieurs feuilles en utilisant la valeur d’une cellule spécifique de chaque feuille du classeur actif

Le code VBA suivant renomme automatiquement toutes les feuilles du classeur actif en se basant sur le contenu d’une cellule spécifique. Par exemple, il vous suffit de saisir le nom souhaité dans la cellule A1 de chaque feuille, et celle-ci sera immédiatement renommée selon la valeur indiquée en A1.

1. Spécifiez une cellule destinée à contenir le nom de la feuille de calcul dans chaque feuille, puis saisissez-y ce nom. Dans cet exemple, je vais entrer le nom de la feuille de calcul dans la cellule A1 de chaque feuille.

2. Cliquez sur Développeur > Visual Basic, puis cliquez sur Insertion > Module dans l’application Microsoft Visual Basic pour Applications Windows.

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

VBA : Renommer les feuilles de calcul à partir du 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 seront renommées en fonction du contenu de la cellule A1.

Démo : Renommer plusieurs feuilles avec Kutools pour Excel

Articles associés