onglet cellule

[manuBX]

Bonjour à tous
comment modifier ce code mis dans une feuille pour que dès que l on change le nom de l onglet le nom de la cellule change sans avoir à changer de cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("A15").Value = ActiveSheet.Name
End Sub

Merci A+

 

[Chris401]

Re : onglet cellule

Bonsoir

Sans macro, en A15

=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32)

Chris

 

[manuBX]

Re : onglet cellule

Merci Chris
mais je le recherche en code sans formule
Merci A+