Nom d'une feuille égal à une cellule

[cel31]

Bonjour,

J'aurais besoin de votre aide, après quelques recherches je n'ai pas trouvé de code correspondant à ce que je veux.

J'aimerais un code qui renomme le nom de ma feuille en fonction de la ma cellule C6. Et que le nom de ma feuille soit le même que ma cellule.

J'ai trouvé ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
    If Target.Value <> "" Then ActiveSheet.Name = Target.Value
End If
End Sub

Mais j'ai un message d'erreur : Erreur de compilation
Nom ambigu détecté : Worksheet_Change

Merci d'avance

 

[DoubleZero]

Re : Nom d'une feuille égal à une cellule

Bonjour, cel31, le Forum,

Le code ne provoque aucun message d'erreur sur mon poste.

Est-il bien logé dans le module de l'onglet concerné ?

La cellule c6 comporte-t-elle des caractères interdits ?

A bientôt 🙂

 

[eastwick]

Re : Nom d'une feuille égal à une cellule

Voici un fichier où il faut cliquer sur l'image nom d'onglet. Il n'apparait pas à l'impression...

 

[Iznogood1]

Re : Nom d'une feuille égal à une cellule

Bonjour,

pourtant ton code semble correct.

Un exemple joint avec une petite amélioration pour éviter les erreurs en cas de nom invalide

 

[cel31]

Re : Nom d'une feuille égal à une cellule

Bonjour et merci a tous,

Tout ses codes ne marchent toujours pas, j'ai toujours le même message d'erreur.

Peut être parce que j'ai déjà un code dans ma feuille ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$K$17" Then
        Application.ScreenUpdating = False
        Rows("23:126").Hidden = False
        Select Case Target.Value
            Case "": Rows("23:126").Hidden = True
            Case 1: Rows("65:126").Hidden = True
            Case 2: Rows("86:126").Hidden = True
            Case 3: Rows("107:126").Hidden = True
        End Select
    End If
End Sub

 

[DoubleZero]

Re : Nom d'une feuille égal à une cellule

Re-bonjour, bonjour, eastwick, Iznogood1,


Comme ceci ?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$K$17" Then
        Application.ScreenUpdating = False
        Rows("23:126").Hidden = False
        Select Case Target.Value
        Case "": Rows("23:126").Hidden = True
        Case 1: Rows("65:126").Hidden = True
        Case 2: Rows("86:126").Hidden = True
        Case 3: Rows("107:126").Hidden = True
        End Select
    End If
    If Target.Address = "$C$6" Then
        If Target.Value <> "" Then ActiveSheet.Name = Target.Value
    End If
End Sub

A bientôt 🙂

 

[cel31]

Re : Nom d'une feuille égal à une cellule

Merci DoubleZero, ça marche super 🙂