Nom d'une Cellule = Nom onglet

Bonjour,

J'ai un fichier avec plusieurs onglets, et j aimerai que le nom de mes onglets affiche AUTOMATIQUEMENT le nom inscrit dans ma cellule H3 de chaque feuille!

exemple :

feuille 1 si H3 = toto l'onglet se nomme automatiquement toto

feuille 2 si H3 = FIFI l'onglet se nomme automatiquement FIFI

ETC...

J'ai mis ce code mais rien ne se lance!!!

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H3")) Is Nothing Then
ActiveSheet.Name = ActiveSheet.Range("H3")
Range("H3").Select
End If
End Sub

Cdlt

Bonjour,
Une proposition.
La procédure est dans ThisWorkbook.
Cdlt.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If IsEmpty(Target) Then
        Sh.Name = Sh.CodeName
    Else
        Sh.Name = Target.Value
    End If
End Sub

Bonsoir,

essayez de lancer ce code et regardez si tout fonctionne à l'issue, car chez moi votre code fonctionne :

Sub Oups()
    Application.EnableEvents = True
End Sub

@ bientôt

LouReeD

Bonsoir,

Trop bien ça fonctionne nickel en ajoutant le code donné par LouReeD.

La procédure de Jean-Eric fonctionne aussi.

Merci a vous 2

@ bientôt

Bonsoir,

merci pour ce retour et vos remerciements !

@ bientôt

LouReeD