Discussion :

[kido63]

Bonjour,

Je cherche une fonction VBA pour afficher dans chaque Onglet du classeur le nom de l'onglet dans une cellule.

J'ai essayé la finction ci-dessous, ça fonctionne au départ mais si je modifie le nom de l'onglet, la formule n'est pas mise à jour !

Function Nom_Onglet() As String

Nom_Onglet = ActiveSheet.Name

End Function

Merci

[Philippe Tulliez]

Bonjour,
Comme ceci sans doute mais un coup d’œil vers l'onglet me semble suffisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function Nom_Onglet() As String
  Application.Volatile
  Nom_Onglet = ActiveSheet.Name
End Function

[kido63]

avec Application.Volatile la mise à jour se fait bien, mais la mise à jour se propage dans tous les onglets et il y a donc le même nom d'onglet partout

[Philippe Tulliez]

Bonjour,

avec Application.Volatile la mise à jour se fait bien, mais la mise à jour se propage dans tous les onglets et il y a donc le même nom d'onglet partout

C'est un peu normal car il n'y a qu'une feuille active dans un classeur.
Pour vous aider avec efficacité, il serait intéressant de connaître la finalité.

[umfred]

Sinon une formule Excel qui marche bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

(en EN:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MID(CELL("filename", A1),FIND("]",CELL("filename", A1))+1,255)

)

[kido63]

Bonjour Umfred,

Je souhaite une macro, plutôt qu'une formule.

J'ai essai ton code:

Function Nom_Onglet() As String

Nom_Onglet = Mid(Cells("filename", Cells(1, 1)), Find("]", Cells("filename", Cells(1, 1))) + 1, 255)

End Function


Mais j'ai une erreur sur FIND : Sub ou Function non définie

Merci.