Copier intitulés d'onglets dans cellules

[Meryl]

Bonjour à toutes et à tous

Mon problème se résume au titre de mon message.J'ai une trentaine de feuilles et je souhaiterais que l'intitulé de chaque feuille (nom de l'onglet) soit affiché en guise de titre dans la première cellule de chaque feuille.

Quelqu'un aurait-il la solution?
Merci d'avance
Meryl

 

[Hervé]

Bonjour

Une proposition en VBA, qui boucle sur toutes les feuilles du classeur, et inscrit en A1 le nom de l'onglet;

Sub Bouton1_QuandClic()
Dim ws As Worksheet
For Each ws In Worksheets
Sheets(ws.Name).Range('a1') = ws.Name
Next ws
End Sub

Salut

 

[Dugenou]

Salut,

Oui il y a une solution qui m'a été donnée par Monique :

tu trouveras l'intégrale dans Lien supprimé

tu mets exactement cette formule dans la cellule ou tu veux le nom de l'onglet :
=STXT(CELLULE('filename';A1);TROUVE(']';CELLULE('filename';A1))+1;32)

Bye

 

[Meryl]

Merci beaucoup! Ca marche nickel...

A bientot pour d'autres questions

 

[Jam]

Salut Meryl, Hervé, Dugenou,

Essai cette petite fonction:

Function test2()
Application.Volatile
test2 = ActiveSheet.Name
End Function

Ensuite tu sélectionnes toutes tes feuilles et tu saisies dans la cellule que tu veux la fonction =test2()
Voili voilou