Renommer 35 onglets

[roweronly]

Bonjour à tous,

Je souhaite renommer 30 sur 35 onglets de mon classeur à partir de l'information que contient la cellule B4 de chaque feuille.
Aussi je ne souhaite pas que la macro renomme mes 4 premiers onglets.

J'essaye déjà de faire fonctionner ce code :

Dim ws As Worksheet

For Each ws In Worksheets

ws.Name = ws.Range("B4").Value

Next ws

End Sub



Merci d'avance pour vos réponses

 

[Pierrot93]

Re : Renommer 35 onglets

Bonjour,

si j'ai bien compris, essaye le code ci-dessous :

Dim i As Byte
For i = 5 To Sheets.Count
    Sheets(i).Name = Sheets(i).Range("B4").Value
Next i

bon après midi
@+

 

[Catrice]

Re : Renommer 35 onglets

Bonjour,

Tu peux tester ceci :

Sub Test()
For i = 5 To Sheets.Count
    Sheets(i).Name = Sheets(i).Range("B4").Value
Next
End Sub

Edit : Bonjour Pierrot ...

 

[JCGL]

Re : Renommer 35 onglets

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Renomme()
 Dim X As Integer
For X = 5 To Sheets.Count
Sheets(X).Name = Sheets(X).Range("B4")
Next
End Sub

A adapter....


A+ à tous

Edition : Bonjour Pierrot, Catrice...

 

[SubEndSub]

Re : Renommer 35 onglets

Bonjour chez vous


Pour ne prendre que les feuilles (worksheets) et pas les graphiques et feuilles macro XL4

For X = 5 To Worksheets.Count serait plus prudent non ?

 

[roweronly]

Re : Renommer 35 onglets

Merci pour vos réponses,

J'avais essayer quelque chose aussi du même genre mais VBA bloque : "Impossible de renommer une feuille comme une autre feuille..."
En fait le soucis c'est que j'avais des informations dans la cellule B4 qui était identique et Excel ne peut avoir des onglets avec les même noms !!

Pfui !!!

En tout cas merci pour votre rapidité de réponses qui est impressionnante!!!

 

[roweronly]

Re : Renommer 35 onglets

J'aimerais savoir pendant que je suis sur le site comment copier le nom des onglets dans une feuille du classeur ?

Le code que j'ai fais fonctionne le nom de mon onglet vient se colle sur la deuxième colonne.
Cependant le nom de l'onglet a été copié sur la ligne 5 comment faire pour qu'il se colle directement sur la ligne 1 ?

Le code ;

Dim X As Integer

For X = 5 To Sheets.Count

Cells(X,2).Value = Sheets(X).Name

Next

End Sub

Merci pour vos réponses

 

[JCGL]

Re : Renommer 35 onglets

Bonjour à tous,

Peux-tu essayer :

Sheets (X).Cells(1,1).Value = Sheets(X).Name

Pour le nom en A1 de chaque feuille

A+ à tous

 

[roweronly]

Re : Renommer 35 onglets

J'ai trouvé mon erreur autant pour moi !!

Le code ;

Dim X As Integer

For X = 5 To Sheets.Count

Cells(1,2).Value = Sheets(X).Name

Next

End Sub

 

[Pierrot93]

Re : Renommer 35 onglets

Re

pour le nom de toutes les feuilles sur la feuille active :

Cells(X-4,2).Value = Sheets(X).Name

@+