Nom d'onglet

[bobjazz]

Bonjour le Forum

Je connais la fonction qui permet de mettre le nom de l'onglet dans une cellule

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

mais je voudrais faire le contraire, mettre le nom d'une cellule precise (par exemple A1) comme nom de l'onglet

Merci d'avance

bobjazz

 

[Dull]

Re : Nom d'onglet

Salut BobJazz, le Forum,

En VBA dans le module de la feuille

Private Sub Worksheet_Activate()
ActiveSheet.Name = ActiveSheet.Range("A1").Value
End Sub

Maintenant par Formule...😕

 

[bobjazz]

Re : Nom d'onglet

Bonjour Dull et le Forum

Cela marche à une condition, c'est que je change d'onglet et que je reviens et là il me la renommé, mais est ce que cela peut se faire des que je mets l'intitulé

Merci d'avance

bobjazz

 

[kiki29]

Re : Nom d'onglet

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    NomFeuileValide ActiveSheet.Range("A1").Value
End Sub

Private Sub NomFeuileValide(ByVal Nom As String)
Dim i As Integer

    Select Case Len(Nom)
        Case 0: Exit Sub
        Case Is > 31: Nom = Left(Nom, 31)
    End Select

    For i = 1 To Len(Nom)
      Select Case Mid(Nom, i, 1)
          Case ":", "/", "\", "?", "*", "[", "]"
                Mid(Nom, i, 1) = " "
      End Select
    Next

    ActiveSheet.Name = Trim(Nom)
End Sub

 

[Dull]

Re : Nom d'onglet

re le fil,

je te propose de mettre ce code
dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
ActiveSheet.Name = ActiveSheet.Range("A1").Value
End Sub

quand tu aura changé de cellule, l'onglet prendra le nom de la cellule

Espérant t'avoir aider

 

[bobjazz]

Re : Nom d'onglet

Re bonjour Dull et kiki29

Cela fonctionne

Merci

bobjazz