associer une cellule avec un onglet

Sub Bouton1_QuandClic()
Dim nom As String
Dim mafeuille As String

mafeuille = InputBox('Nom de feuille ?')
nom = Mid(mafeuille, 1, InStr(1, mafeuille, ' ') - 1)

On Error GoTo pasbon
If mafeuille <> '' Then
    Worksheets('feuil1').Copy After:=Worksheets('feuil1')
    With ActiveSheet
        .Name = nom
        .Range('a1') = mafeuille
    End With
End If
On Error GoTo 0
Exit Sub
pasbon:
MsgBox 'y'a pas bon.'


End Sub

Cliquez pour agrandir...

=STXT(CELLULE('nomfichier':A1);TROUVE(']';CELLULE('nomfichhier';A1))+1;32)

La formule fonctionne mais attention à la syntaxe

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

cette formule fait 'remonter' le nom de l'onglet courant dans la cellule concernée.

pour faire l'inverse (renommer un onglet à partir du contenu d'une cellule, du nom d'un classeur ou autre), il faut écrire une commande dans une macro.

Cliquez pour agrandir...

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

Cliquez pour agrandir...