Renommer les onglets des feuilles

B

Bell@tor

Guest
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

Nous a quittés en 2006
Repose en paix
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

XLDnaute Accro
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
 

Charly2

Nous a quittés en 2006
Repose en paix
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 ;)
 

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla