renommer des onglets

[Alexandre]

Sur ma feuille 1, j'ai une liste de nom......
Tous les onglets restant (150) ont la même forme (calcul, mise en forme, etc...)

Y a -t-il une macro qui me permettrait de renommer ces onglets en fonction de la liste de la première feuille....

Merci à tous

 

[Ber Nar]

Si ta liste se trouve en A1:A4 dans l'onglet "Feuil1" avec les valeurs AA;BB;CC;DD et que tu souhaites remplacer les noms des onglets Feuil2; Feuil3; Feuil4 et Feuil5 par ces 4 valeurs, tapes le code suivant :


Sub Macro1()
Nom = Sheets("Feuil1").Range("a1").Value
Sheets("Feuil2").Name = Nom
Nom = Sheets("Feuil1").Range("a2").Value
Sheets("Feuil3").Name = Nom
Nom = Sheets("Feuil1").Range("a3").Value
Sheets("Feuil4").Name = Nom
Nom = Sheets("Feuil1").Range("a4").Value
Sheets("Feuil5").Name = Nom
end sub.

Il y a sûrement plus simple mais çà marche.

Ber Nar.
Si tu veux par la suite encore changer le nom des onglets, n'oublies pas de changer le nom des feuilles.

 

[jon]

un truc du genre suivant :


i = 2 'on suppose qu'on commence à renuméroter la seconde feuille du classeur.
For Each cl In Range("A2", [A65536].End(xlUp))
Sheets(i).Name = cl.Value: i = i + 1
Next cl

 

[john]

Salut,

Voilà un petit prg qui te permets de renommer tes feuilles d'après le contenu de tes cellules (ici A ou F) et qui les tries dans l'ordre chronologique.

Dans cet exemple, dans la macro tu dois changer soit range("a" & x) ou range("f"&x) et il y a les deux conditions pour si tes feuilles portes un numéro ou un nom (alphanumérique). a toi d'activer la condition qu'il te faut.

Bonne fin de journée.

John