Note: The other languages of the website are Google-translated. Back to English

 Comment copier une feuille et la renommer en fonction de la valeur de la cellule dans Excel?

Normalement, vous pouvez appliquer le Déplacer ou copier pour copier une feuille de calcul, puis tapez manuellement un nouveau nom pour la copie selon vos besoins. Mais avez-vous déjà essayé de renommer la feuille en fonction d'une valeur de cellule après avoir copié la feuille de calcul? Dans cet article, je vais expliquer comment renommer automatiquement la feuille de calcul en fonction de la valeur de la cellule lorsque vous effectuez une copie.

Copiez une feuille de calcul et renommez-la en fonction de la valeur de la cellule avec le code VBA

Copiez une feuille de calcul plusieurs fois et renommez-la en fonction des valeurs de cellule avec Kutools for Excel


Copiez une feuille de calcul et renommez-la en fonction de la valeur de la cellule avec le code VBA

Le code VBA suivant peut vous aider à copier une feuille de calcul et à la renommer automatiquement avec une valeur de cellule spécifique, procédez comme suit:

1. Activez la feuille de calcul que vous souhaitez copier, puis maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: copiez une feuille de calcul et renommez-la 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. Et puis appuyez sur F5 clé pour exécuter ce code, et votre feuille de calcul actuelle a été copiée dans le classeur actuel après toutes les feuilles de calcul, et elle est renommée avec la valeur de cellule que vous avez spécifiée, voir capture d'écran:

doc copie raname par valeur 1

Notes: Dans le code ci-dessus, la référence de cellule A1 est la valeur de cellule que vous souhaitez renommer pour la nouvelle feuille copiée, vous pouvez la modifier selon vos besoins.


Copiez une feuille de calcul plusieurs fois et renommez-la en fonction des valeurs de cellule avec Kutools for Excel

Le code ci-dessus ne peut être renommé qu'avec une seule valeur de cellule, si vous devez copier la feuille plusieurs fois et les renommer en fonction d'une liste de valeurs de cellule, Kutools pour Excel's Créer une feuille de calcul de séquence peut vous aider à terminer cette tâche aussi rapidement que possible.

Kutools pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. 

Après l'installation de Kutools pour Excel, procédez comme suit:

1Cliquez sur Kutools Plus > Feuille > Créer des feuilles de calcul de séquence, voir capture d'écran:

doc copie raname par valeur 3

2. Dans le Créer une feuille de calcul de séquence boîte de dialogue, effectuez les opérations suivantes:

(1.) Sélectionnez le nom de la feuille de calcul que vous souhaitez copier à partir du Feuille de travail de base la liste déroulante;

(2.) Sélectionnez l'option Données dans une plage sous le Noms de feuille basés sur section, et cliquez doc copie raname par valeur 5 pour sélectionner les valeurs de cellule sur lesquelles vous souhaitez renommer les feuilles de calcul copiées.

Téléchargez Kutools for Excel maintenant!

3. Puis clique Ok et la feuille de calcul spécifique ont été copiées plusieurs fois et renommées avec les valeurs de cellule que vous avez sélectionnées dans un nouveau classeur, voir capture d'écran:

doc copie raname par valeur 4

Téléchargez et essayez gratuitement Kutools for Excel Now!


Démo: copiez une feuille de calcul plusieurs fois et renommez-la en fonction des valeurs de cellule avec Kutools for Excel

Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer 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 réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (2)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Le code ci-dessous fonctionne très bien. Ma question est la suivante: est-il possible d'ouvrir automatiquement la nouvelle feuille de calcul (basée sur A1) et de supprimer le contenu de la feuille précédente car elle est utilisée comme modèle. Sub Copyrenameworksheet() 'Mettre à jour par Extendoffice 20160704 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 ").Valeur End If wh.Activate End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Votre code est ce que je cherchais, mais le contenu de la cellule que je souhaite utiliser pour renommer la feuille est une date. Par exemple, sur la première feuille, la cellule A2 affiche une date au lundi 3 avril 2017. Ce que j'aimerais qu'il se passe, c'est que lorsque la feuille suivante est créée par la macro, il faudrait prendre la date de A2, ajouter 7 pour afficher, par exemple, "lundi 10 juillet 2017" mais renommez la nouvelle feuille au format jj-mm-aa, donc "10-07-17". Est-ce possible? Au fait, j'ai Kutools pour Excel, mais cette feuille de calcul sera un enregistrement de la pression artérielle pour mon père qui n'a pas Kutools. Merci d'avance!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés