Pb dans un code pour modifier le nom d'une feuille

Hugues · 11 Juin 2008

Bonjour Le Forum,

Je souhaiterais modifier le nom d'une feuille contenue dans un classeur lors de son ouverture.
Le nom de cette feuille doit être égal à la valeur contenu dans la cellule F6 d'une autre feuille de ce classeur nommée "sommaire".

J'ai rédigé le code suivant dans la feuille qui doit être renommée :

Private Sub Worksheet_Activate()
Sheets.Name = Sheets("sommaire").Range("F6").Value
End Sub

Pouvez - vous m'aider ?

Merci par avance pour votre soutien,

Hugues

Pierrot93 · 11 Juin 2008

Re : Pb dans un code pour modifier le nom d'une feuille

Bonjour Hugues

pas sur d'avoir tout compris, mais essaye peut être comme ceci :

(à placer dans le module de la feuille à renommer)

Code:

Private Sub Worksheet_Activate()
Me.Name = Sheets("sommaire").Range("F6").Value
End Sub

mais cette procédure se déclenchera à chaque activation de la feuille...

bonne journée
@+

job75 · 11 Juin 2008

Re : Pb dans un code pour modifier le nom d'une feuille

Bonjour,
Vous pouvez écrire :
ActiveSheet.Name = Sheets("sommaire").Range("F6").Value
ou encore :
ActiveSheet.Name = Sheets("sommaire").[F6]
A+

Pb dans un code pour modifier le nom d'une feuille

Hugues

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires