Donner un nom à un onglet

[Christian]

Bonjour à tous,
J'ai un fichier Excel (2000) avec plusieurs onglets.
Je souhaite à partir des informations d'une liste (Paris, Lyon, ...) contenue dans l'onglet 1 donner automatiquement un nom aux onglets suivants (exemple onglet2 ="Paris", onglet3 = "Lyon", ...) .
Est-ce possible ?
Si oui, comment peut-on réaliser cette opération ?
Merci d'avance de votre aide.

 

[@+Thierry]

Salut Christian

Le fichier que tu as joint ne sert strictement à rien, tes explications suffisent amplement.
Pour ta gouverne dans Excel pour être précis on parlera plutôt de "Feuille" que "d'Onglets".

Ceci dit, c'est assez simple en VBA de renommer des feuilles avec un code comme ceci :

Sub Renommer()
Sheets("Feuil2").Name = Sheets("Feuil1").Range("A1").Value
Sheets("Feuil3").Name = Sheets("Feuil1").Range("A2").Value
End Sub

Là où c'est un peu plus compliqué c'est de renommer toutes les feuilles du classeur sans connaitre leur nom et en bouclant sur une plage de cellules.
Voici une méthode :

Sub RenommerTouteLesFeuilles()
Dim WS As Worksheet
Dim i As Byte
i = 1
For Each WS In Sheets
If WS.Name <> "Feuil1" Then
WS.Name = Sheets("Feuil1").Range("A" & i).Value
i = i + 1
End If
Next
End Sub


Bon Week End
@+Thierry

 

[@+Thierry]

Tiens, en répondant à William à l'instant.. Je suis repassé par là... A en croire que ma réponse ne devait pas convenir...

@+Thierry Soupir