Macro VBA pour afficher le nom de chaque Onglet

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

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

Code:

---

1 2 3 4

Function Nom_Onglet() As String Application.Volatile Nom_Onglet = ActiveSheet.Name End Function

---

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

Bonjour,

Citation:

---

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é.

Sinon une formule Excel qui marche bien

Code:

---

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

---

(en EN:

Code:

---

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

---

)

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.

Bonjour, essaie cette fonction, quand tu changes le nom de l'onglet, la cellule dans laquelle se trouve l'appel de fonction sera automatiquement mise à jour:

Code:

---

1 2 3 4

Function Nom_Onglet() As String Application.Volatile Nom_Onglet = Application.Caller.Worksheet.Name End Function

---