nommer des feuilles

Salut
Essai ceci
Sheets(i).Select
Sheets(i).Name = TextBox1.Value

où est est un integer
Mais attention Feuil 1 doit etre en premier !!

puis fais une boucle
for i = 1 to x
Sheets(i).Select
Sheets(i).Name = TextBox1.Value
next

Attention aux dépassement de valeurs, où i serait plus grand que le nombre
de feuille que tu possedes !

Voilà
Bon prog à toi l'ami
<titi> a écrit dans le message de
news:rlehc0lp5g4tltuc121r791aih02b4ksp0@4ax.com...

bonjour
je cherche a ecrire quelques lignes ( macro ) qui me renomment des
feuilles
Plutot que de faire

Sheets("Feuil1").Name = "A"
Sheets("Feuil2").Name = "B"
Sheets("Feuil3").Name = "C"
Sheets("Feuil4").Name = "D"
.....

Y aurait il une solution plus economique ( en terme de code )

par avance merci

Bonjour,

Dans l'hypothèse ou tes Feuilles sont dans le bon ordre:

Sub nouveaunom()
For i = 1 To Sheets.Count
Sheets(i).Name = Chr$(64 + i)
Next
End Sub

<titi> a écrit dans le message de
news:rlehc0lp5g4tltuc121r791aih02b4ksp0@4ax.com...

bonjour
je cherche a ecrire quelques lignes ( macro ) qui me renomment des
feuilles
Plutot que de faire

Sheets("Feuil1").Name = "A"
Sheets("Feuil2").Name = "B"
Sheets("Feuil3").Name = "C"
Sheets("Feuil4").Name = "D"
.....

Y aurait il une solution plus economique ( en terme de code )

par avance merci