mettre un titre dans chaque feuille

[gillmo]

bonsoir,

voilà j'essaie de mettre un titre dans chaque feuille. Dans la feuille 1 j'ai indiqué le nom de chaque feuille avec le titre dans la colonne a coté

Ce que je souhaite, c'est mettre chaque titre sur la case B1 de chaque feuille, correspondant à la feuille 1

je met un fichier test pour visualiser

Sachant qu'il peut y avoir des centaines de feuille, je voudrai que cela se fasse par macro

merci

 

[JCGL]

Re : mettre un titre dans chaque feuille

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Nomme()
Dim X As Integer
For X = 2 To Sheets.Count
Sheets(X).Range("B1") = Sheets(1).Cells(X - 1, 2)
Next X
End Sub

A+ à tous

 

[Softmama]

Re : mettre un titre dans chaque feuille

Bonjour gillmo,

Tu peux tester cette macro :

Sub toto()
Dim c As Range
Set c = Sheets("Feuil1").Range("A1")
Do While c <> ""
    Sheets(c.Value).Range("B1") = c(1, 2)
    Set c = c(2, 1)
Loop
End Sub

[Edit] Bonjour JCGL

 

[Fred0o]

Re : mettre un titre dans chaque feuille

Bonsoir gillmo,

Essaie ceci :

Sub renomme()
    Dim i
    On Error Resume Next
    For i = 1 To [A65536].End(xlUp).Row
        Sheets(Range("A" & i).Value).Name = Range("B" & i)
    Next
    On Error GoTo 0
End Sub

A+

 

[gillmo]

Re : mettre un titre dans chaque feuille

merci à tous pour votre rapidité

la réponse qui correspond plus à mon attente est celle de softmama, mais je garde les autres aussi si jamais un jour j'ai besoin de les utiliser.

problème résolu