Renommer l'onglet avec la valeur d'une cellule

[Babat]

Bonjour, mon souci se trouve dans le fait que j'aimerais renommer l'onglet avec la valeur de la cellule A1. Autant je sais faire l'inverse (le nom de l'onglet s'affiche dans la cellule), autant ceci je n'y arrive pas.
Donc si qulqu'un avait une formule (pas de macro si possible, mais si pas d'autre choix on fera avec) pour que lorsque j'écris dans la cellule A1 un nom, l'onglet se renomme automatiquement avec ce nom.

Merci.

 

[jeanpierre]

Re : Renommer l'onglet avec la valeur d'une cellule

Bonjour Babat, Bienvenue sur le forum,

Regarde ce fil (entre autres), mais c'est par une petite macro.

https://www.excel-downloads.com/threads/renommer-une-feuille-selon-la-valeur-dune-cellule.71338/

Bon après-midi

Jean-Pierre

 

[bellesai]

Re : Renommer l'onglet avec la valeur d'une cellule

Bonsoir

Je voulais juste remercier tous ceux qui diffusent des astuces qui sont très utiles.
Bien sincèrement
Bellesai

 

[boli]

bonjour , je voudrais utiliser la même formule que celle d'en haut(
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
ActiveSheet.Name = Range("B4")
End If
End Sub)
Mais utiliser le format date comment je peut le faire svp.

Merci

 

[boli]

bonjour , je voudrais utiliser la même formule que celle d'en haut(
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
ActiveSheet.Name = Range("B4")
End If
End Sub)
Mais utiliser le format date comment je peut le faire svp.

Merci

 

[JCGL]

Bonjour à tous,

Peux-tu essayer :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
        ActiveSheet.Name = Format(Range("B4"), "dd-mm-yy")
    End If
End Sub

A+ à tous

 

[boli]

Merci beaucoup JCGL

 

[boli]

Aussi petit probleme il ne se met pas automatiquement sur chaques onglets (31 jours ) , il faut que je fasse des enter à chaque fois est-ce que c'est possible qu'il change quand je change le premier onglet svp.

Merci pour la réponse rapide .

 

[JCGL]

Bonjour à tous,

Dans le ThisWorkBook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        ActiveSheet.Name = Format(Range("B4"), "dd-mm-yy")
End Sub

A+ à tous

 

[boli]

Bonjour , merci de m'avoir répondu ,j'ai essayé et sa ne marche pas ;( désolé
Est-ce qu'il faut que je l'ajoute à la formule .....
Merci

 

[JCGL]

Bonjour à tous,

Merci de joindre ton fichier.

A+ à tous