Renommer l'onglet avec la valeur d'une cellule

jeanpierre

Nous a quitté

Repose en paix

• 12 Novembre 2009

• #2

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

 

Vote positif 0 Vote négatif

B

bellesai

XLDnaute Nouveau

• 30 Octobre 2015

• #3

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

 

Vote positif 0 Vote négatif

B

boli

XLDnaute Nouveau

• 5 Décembre 2016

• #4

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

 

Vote positif 0 Vote négatif

B

boli

XLDnaute Nouveau

• 5 Décembre 2016

• #5

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 5 Décembre 2016

• #6

Bonjour à tous,

Peux-tu essayer :

VB:

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

 

Vote positif 0 Vote négatif

B

boli

XLDnaute Nouveau

• 5 Décembre 2016

• #7

Merci beaucoup JCGL

 

Vote positif 0 Vote négatif

B

boli

XLDnaute Nouveau

• 5 Décembre 2016

• #8

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 .

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 5 Décembre 2016

• #9

Bonjour à tous,

Dans le ThisWorkBook :

VB:

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

A+ à tous

 

Vote positif 0 Vote négatif

B

boli

XLDnaute Nouveau

• 5 Décembre 2016

• #10

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

 

Dernière édition: 5 Décembre 2016

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 6 Décembre 2016

• #11

Bonjour à tous,

Merci de joindre ton fichier.

A+ à tous

 

Vote positif 0 Vote négatif