inscrire le nom de l'onglet

[pascal21]

bonsoir
je suis à la recherche d'un code vba qui permettrait, à l'ouverture du classeur, d'avoir dans la cellule a1 des feuilles 11 à 21 le nom de l'onglet de ces feuilles
ex feuille 11 nommée "pascal ",en a1 "pascal" etc....
merci

 

[Staple1600]

Re : inscrire le nom de l'onglet

Bonsoir

A tester

For i= 11 to 21
Sheets(i).Range("A1")=Sheets(i).Name
Next

 

[pascal21]

Re : inscrire le nom de l'onglet

ok merci c'est bien ça
j'avais bien écris un code similaire mais ça ne fonctionnait pas

 i= 11 to 21
Sheets(i).Range("A1")=Name
Next

il manquait le 2eme "sheets(i)"
et je ne trouvais pas l'erreur