Renommer les onglets des feuilles

Charly2

Nous a quittés en 2006

Repose en paix

• 17 Janvier 2006

• #2

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

Cliquez pour agrandir...

Procédure à placer dans un module...

A+

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 17 Janvier 2006

• #3

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 17 Janvier 2006

• #4

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

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 17 Janvier 2006

• #5

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

 

Vote positif 0 Vote négatif

B

Bell@tor

Guest

• 17 Janvier 2006

• #6

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 !

 

Vote positif 0 Vote négatif

B

Bell@tor

Guest

• 17 Janvier 2006

• #7

Yessssssss !
c bon ca marche
merci encore !

 

Vote positif 0 Vote négatif