Cellule et onglet

Bonjour à tous,

Comment donner comme nom à l'onglet, la valeur texte d'une cellule ??

EX. A1 = "Janvier" --> Nom de l'onglet contenant cette cellule = Janvier

NB. Question déjà posée mais de façon inverse (Donner le nom d'un onglet à une cellule)

Merci d'avance

Cordialement

Bonjour,

Essaie ce code dans un module ; on suppose que tu veux reprendre la valeur de la cellule A1 dans l'onglet

Sub NomOnglet()
'
' NomOnglet Macro
' Macro enregistrée le 16/07/2008 par V_Elbie
'
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = Range("A1").Value

End Sub

Cordialement,

Bonsoir,

Merci V_elbie

Ce code fonctionne très bien, mais 1 seule fois

Le nom de la feuille a bien changé, mais pas dans le code,

Je pensais qu'en modifiant le texte de A1, le nom de la feuille changerait et cela autant de fois que nécessaire

Cordialement

Bonjour,

Essaye ce code :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then ActiveSheet.Name = Target
End Sub

Code à placer en VBA dans la feuille dont tu veux changer le nom.

Amicalement

Dan

Bonjour à tous,

-->Nad-Dan

Merci beaucoup, ça fonctionne impeccablement

Cordialement