Renommage de feuille excel

Fermé

slayer17 - Modifié par pijaku le 15/10/2014 à 08:41
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 15 oct. 2014 à 08:41

Bonjour,

bonjour, je debute totalement dans le vba mais j ai une petite question
j ai codé ceci , mais le probleme c'est que effectivement sur ma 1ere feuille le nom de la feuille correspond bien à ma cellule G6 mais impossible de passer sur une autre feuille, comment je peux faire?

Option Explicit
Sub Macro1()

Dim pt As PivotTable

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ActiveSheet.Name = Range("g6").Value


Next ws

End Sub

A voir également:

Renommage de feuille excel
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
15 oct. 2014 à 08:41

Bonjour,

Remplacer ActiveSheet (feuille active) par ws (feuille référencée dans la boucle) :

Option Explicit
Sub Macro1()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    ws.Name = ws.Range("G6").Value 'les noms sont placés, dans chaque feuille, en G6
Next ws
End Sub

Newsletters