Renommer le titre de l'onglet en fonction de la valeur d'une cellule

[Hugues]

Bonjour,

je souhaiterais modifier le titre de l'onglet de la feuille, en fonction de la valeur d'une cellule. Je désirerais lors de la fermeture de la feuille, modifier le nom de l'onglet.

Ci joint le code qui ne fonctionne :

Private Sub Worksheet_Deactivate()
ActiveWorkbook.Sheets.Name = ActiveWorkbook.Sheets.Range(C1)
End Sub

Pourriez vous m'aider

Merci par avance,

hugues

 

[Robert]

Re : Renommer le titre de l'onglet en fonction de la valeur d'une cellule

Bonsoir Hugues, bonsoir le forum,

Essai comme ça :

Private Sub Worksheet_Deactivate()
Me.Name = Me.Range("C1")
End Sub