Copier intitulés d'onglets dans cellules

Meryl · 11 Mai 2005

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

Robert · 11 Mai 2005

Salut Meryl, salut le forum,

je te propose cette macro :

Public Sub test()
Dim sh As Worksheet 'déclare la variable sh
For Each sh In Sheets 'boucle sur tous les onglets du classeur
sh.Range('A1').Value = sh.Name 'place le nom de l'onglet dans la cellule A1
Next sh 'prochain onglet de la boucle
End Sub

Édition

Argh ! Je viens de me rendre compte que tu as posté deux fois et que donc j'ai perdu mon temps pour la peau des c... Fait ch...

Message édité par: Robert, à: 11/05/2005 17:23

Hellboy · 11 Mai 2005

Bonjour Robert

La pluie des post questionnables, n'atteint pas mon parapluie de l'indifférence. Plus vite dit que fait... N'est ce pas Robert ?

Copier intitulés d'onglets dans cellules

Meryl

Guest

Robert

XLDnaute Barbatruc

Hellboy

XLDnaute Accro

Discussions similaires