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

 

[Robert]

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]

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 ?