une date comme nom d'onglet

Le
Noégor
Bonsoir à Tous,
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?

D'avance merci.

Noégor
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Caetera
Le #19703311
> 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
Noégor
Le #19714981
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" news:O92PzYf$
> 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




Caetera
Le #19714941
> 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
Caetera
Le #19715081
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
Noégor
Le #19721941
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" news:u6yyUyv$
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




Publicité
Poster une réponse
Anonyme