une date comme nom d'onglet

> Sur la Feuil1 en A1, j'ai une date nommée "DateTRT".
Si cette date change, je veux que cette date devienne le nom de l'onglet de
la feuil2. Est-ce possible ? et comment?

Dans le module de Feuil1 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Sheets(2).Name = Format([Feuil1!A1], "dd-mm-yy")
End Sub

Etc

Merci beaucoup, c'est ce que je cherchais, cependant juste un complément :
cette cellule A1, je l'ai baptisée "DateTRT", est-il possible de reprendre
ce nom en VBA au lieu de $A$1?
Si oui, comment ?
Merci
Bien à vous.
Noégor
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de
news:O92PzYf$JHA.5040@TK2MSFTNGP04.phx.gbl...

> Sur la Feuil1 en A1, j'ai une date nommée "DateTRT".
> Si cette date change, je veux que cette date devienne le nom de l'onglet

de

> la feuil2. Est-ce possible ? et comment?

Dans le module de Feuil1 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Sheets(2).Name = Format([Feuil1!A1], "dd-mm-yy")
End Sub

Etc

> Merci beaucoup, c'est ce que je cherchais, cependant juste un complément :
cette cellule A1, je l'ai baptisée "DateTRT", est-il possible de reprendre
ce nom en VBA au lieu de $A$1?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> [DateTRT].Address Then Exit Sub
Sheets(2).Name = Format([Feuil1!A1], "dd-mm-yy")
End Sub

Etc

Un oubli réparé (dans la 2° ligne de code)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> [DateTRT].Address Then Exit Sub
Sheets(2).Name = Format([DateTRT], "dd-mm-yy")
End Sub

Etc

Bonjour Etc,
Franchement bravo et merci car avant de poser la question j'avais testé
différentes choses du genre "DateTRT" et cela ne fonctionnait pas.
Encore merci
A d'autres fois...
Noégor
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de
news:u6yyUyv$JHA.2824@TK2MSFTNGP03.phx.gbl...

Un oubli réparé (dans la 2° ligne de code)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> [DateTRT].Address Then Exit Sub
Sheets(2).Name = Format([DateTRT], "dd-mm-yy")
End Sub

Etc