Renommage de feuille excel

slayer17 -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
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:

1 réponse

Réponse 1 / 1
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 763
 
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
0

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
feuille excel de gestion belote
SiFaSiLa -
frank -

2 réponses