Mettre à jour le nom d'une feuille

Bonjour à tous.

J'ai un classeur contenant 12 feuilles, et je souhaiterais que chacune de ces feuilles portent le nom de la cellule A1 de la feuille correspondante.

Cette mise à jour, pourrait se faire, à l'aide d'un bouton.

J'ai commencé à créer un code, mais cela ne marche pas très bien.

Sub MAJ_Onglet()

ActiveSheet.Name = Sheets("Feuil2").Range("B12") 'Cellule B12de la feuille 2

ActiveSheet.Name = Sheets("Feuil3").Range("B13")

ActiveSheet.Name = Sheets("Feuil4").Range("B14")

ActiveSheet.Name = Sheets("Feuil5").Range("B15")

ActiveSheet.Name = Sheets("Feuil6").Range("B16")

ActiveSheet.Name = Sheets("Feuil7").Range("B17")

ActiveSheet.Name = Sheets("Feuil8").Range("B18")

ActiveSheet.Name = Sheets("Feuil9").Range("B19")

ActiveSheet.Name = Sheets("Feuil10").Range("B20")

ActiveSheet.Name = Sheets("Feuil11").Range("B21")

ActiveSheet.Name = Sheets("Feuil12").Range("B22")

ActiveSheet.Name = Sheets("Feuil13").Range("B23")

End Sub

Merci encore de votre aide

titi32600

Bonjour,

avec une boucle ...

P.

Option Explicit
Sub Nom()
Dim I
For I = 2 To Sheets.Count
  Sheets(I).Name = Sheets(I).Cells(I + 10, 2)
Next
End Sub

Salut Patrick1957

Oui c'est une idée, mais dans mon exemple, j'ai un peur de mal à la faire fonctionner.

Dans chaque feuille de mon classeur, la cellule B22, porte le mois et l'année en cours.

exemple:

dans la feuille 2, la cellule B22 = Janvier 2017,

dans ma feuille 3, la cellule B22 = Février 2017 ........ jusqu'à la feuille 13 dont la cellule B22 = Décembre 2017.

Comme ce classeur pourra être utilisé l'année prochaine, il faudra un bouton avec un code VBA pour remplir toutes les feuilles avec la bonne année.

dans mon exemple :

dans la feuille "Janvier 2017" , sera remplacé en "Janvier 2018" grâce à la cellule B22 qui contiendra "Janvier 2018"....

titi32600

re,

tu parlesà présent de B22 et dans ton code de B12 à B23...

No comprendo, mais je suis très fatigué

P.

moi aussi je suis un peu fatigué.

J'ai mélangé deux idée dans un code.

ma vrais demande consiste à noter le nom de la feuille avec la valeur de la cellule B22 de la feuille correspondante, comme donnée dans ma dernière réponse.

désolé encore d'écrire sans me relire

titi32600

Bonjour,

change la cellule alors:

(sans savoir ce qui se trouve dans la cellule, qui pourrait empêcher de créer le nom de l'onglet ...)

Option Explicit
Sub Nom()
Dim I
For I = 2 To Sheets.Count
  Sheets(I).Name = Sheets(I).Cells(22, 2) ' 22e ligne , 2e colonne
Next
End Sub

Salut Patrick1957

Ta formule fonctionne très bien.

Merci encore

titi32600