Comment copier une feuille et la renommer automatiquement en fonction de la valeur d’une cellule dans Excel ?
Normalement, vous pouvez utiliser la fonctionnalité Déplacer ou Copier pour dupliquer une feuille de calcul, puis lui attribuer manuellement un nouveau nom selon vos besoins. Mais avez-vous déjà envisagé de renommer automatiquement cette feuille en fonction de la valeur d’une cellule dès sa copie ? Dans cet article, je vous explique précisément comment renommer automatiquement une feuille de calcul à partir de la valeur d’une cellule au moment de sa duplication.
Copier une feuille de calcul et la renommer selon une valeur de cellule avec du code VBA
Copier une feuille de calcul et la renommer selon une valeur de cellule avec du code VBA
Le code VBA ci-dessous vous permet de copier une feuille de calcul et de la renommer automatiquement à l’aide de la valeur contenue dans une cellule spécifique. Suivez ces étapes :
1. Activez la feuille de calcul que vous souhaitez copier, puis appuyez simultanément sur les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Copier une feuille de calcul et la renommer avec une valeur de cellule :
Sub Copyrenameworksheet()
'Updateby Extendoffice
Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
If wh.Range("A1").Value <> "" Then
ActiveSheet.Name = wh.Range("A1").Value
End If
wh.Activate
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Après l’exécution, votre feuille de calcul actuelle sera copiée à la suite de toutes les feuilles existantes dans le classeur actuel, sous le nom correspondant à la valeur de la cellule que vous avez spécifiée. Voir la capture d’écran :
Remarque : dans le code ci-dessus, la référence de cellule A1 correspond à la valeur de la cellule que vous souhaitez utiliser pour renommer la nouvelle feuille copiée. Vous pouvez l’adapter selon vos besoins.
Copier une feuille de calcul plusieurs fois et la renommer selon des valeurs de cellules avec Kutools pour Excel
Le code précédent ne permet de renommer qu’avec une seule valeur de cellule. Si vous devez copier la feuille plusieurs fois et la renommer à partir d’une liste de valeurs de cellules, la fonctionnalité Kutools pour Excel’s Créer une feuille de séquence vous permet d’accomplir cette tâche en un clin d’œil.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Cliquez sur KUTOOLS PLUS > Feuille de calcul > Créer des feuilles de calcul de séquence. Voir la capture d’écran :
2. Dans la boîte de dialogue Créer une feuille de séquence, effectuez les opérations suivantes :
(1.) Sélectionnez le Nom de la feuille de calcul que vous souhaitez copier dans la liste déroulante Basé sur la feuille de calcul;
(2.) Cochez l’option Données dans la sélection sous la section Nom de la feuille de calcul basé sur, puis cliquez sur le bouton 
pour sélectionner les valeurs des cellules à partir desquelles vous souhaitez renommer les feuilles copiées.
3. Cliquez ensuite sur le bouton OK : la feuille spécifiée sera alors copiée plusieurs fois et renommée selon les valeurs des cellules que vous avez sélectionnées dans un nouveau classeur. Voir la capture d’écran :
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels