Renommer les onglets des feuilles

[Bell@tor]

bjr a ts !

j'ai un classeur avec 10 feuilles dedans, plus une autre feuille avec une base de données de 10 noms. Je souhaite renommer automatiquement les onglets des 10 feuilles en rapport avec la base de donnée.
Ex : cellule 1, 'titi', de ma base donne le nom de feuille 'titi'.
comment dois-je proceder ?
merci

 

[Charly2]

Bonjour Bell@tor, bonjour à toutes et à tous 🙂

Si tes 10 feuilles sont bien avant ta DB, donc 10 + 1, tu peux essayer ce code à l'adaptant à ton classeur (ici, les noms sont dans DB de A2 à A11) :

Option Explicit

Sub RenommeFeuilles()
'
Dim i%
'
  For i = 1 To 10
    Sheets(i).Name = Sheets('DB').Cells(i + 1, 1)
  Next i
End Sub

Procédure à placer dans un module...

A+

Message édité par: Charly2, à: 17/01/2006 14:48

 

[Jacques87]

Bonjour

voici le code qui répondra à ta question

For I = 1 to 10
Worksheets(I).Name = Worksheets('base de données').Range('A' & I)
Next I

je suppose que les feuilles à nommer sont les 10 premières et que les données sont dans une onzième feuille appelée 'base de données
tu places ce code dans une macro par exemple

Bon courage

 

[Jacques87]

oups Charly, bien le bonjour
Ne t'ai-je pas fait trop mal dans cette colision ?
Cordialement

 

[Charly2]

Salut Jacques 🙂

Non, non, je t'en prie, c'était de ma faute ! Sur la route les piétons sont prioritaires par rapport aux voitures, mais pour les singes, c'est pas prévu dans le code de la route !!! 🙂

A+

PS : Peut-être serait-il bon de revoir un code obsolète. Je vais dire au Ministre qu'il comptabilise aussi les poules écrasées dans ses statistiques 😉

 

[Bell@tor]

oui oui je crois comprendre le code.... pas de la route !!!!!!!!! (je l'ai jamais compris !)mais ton code ci-dessus... j'essaye ca et j'te le redis !
merci a ts !

 

[Bell@tor]

Yessssssss !
c bon ca marche
merci encore !