Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Renommer l'onglet avec la date insérée automatiquement

Renommer l'onglet avec la date insérée automatiquement

3 réponses
Avatar
ManBas
Bonjour,
J'ai mis dans un module de feuille le code suivant pour insérer
automatiquement la date aprés une modification.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A" & Target.Row) = "=TODAY()"
End If
End Sub

Je souhaiterai renommer l'onglet avec la valeur de "=TODAY()" (format de
cellule jj-mm-aa), mais je ne sais pas comment l'exprimer: le n° de ligne
change sans cesse et je ne connais que:
ActiveSheet.Name = ActiveSheet.[A1]

Merci +++ de votre aide.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Ajoute la ligne suivante à ton code :
ActiveSheet.Name = Day(Date) & "-" & Month(Date) & "-" & Year(Date)
Cordialement.
Daniel
"ManBas" a écrit dans le message de news:

Bonjour,
J'ai mis dans un module de feuille le code suivant pour insérer
automatiquement la date aprés une modification.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A" & Target.Row) = "=TODAY()"
End If
End Sub

Je souhaiterai renommer l'onglet avec la valeur de "=TODAY()" (format de
cellule jj-mm-aa), mais je ne sais pas comment l'exprimer: le n° de ligne
change sans cesse et je ne connais que:
ActiveSheet.Name = ActiveSheet.[A1]

Merci +++ de votre aide.



Avatar
Rai
Bonjour,

Tu n'es pas loin du but ;oP

ActiveSheet.Name = Format(Date, "dd-mm-yyyy")

ATTENTION :
On ne peut pas directement utiliser Date pour nommer une feuille, les
caractères / ne sont pas acceptés dans les noms d'onglet.

La fonction Format permet de générer une date à façon :
"dd-mm-yyyy" donnera 31-01-2005
"ddmmyyyy" donnera 31012005

Bonne journée

Rai

Bonjour,
J'ai mis dans un module de feuille le code suivant pour insérer
automatiquement la date aprés une modification.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A" & Target.Row) = "=TODAY()"
End If
End Sub

Je souhaiterai renommer l'onglet avec la valeur de "=TODAY()" (format de
cellule jj-mm-aa), mais je ne sais pas comment l'exprimer: le n° de ligne
change sans cesse et je ne connais que:
ActiveSheet.Name = ActiveSheet.[A1]

Merci +++ de votre aide.




Avatar
ManBas
Merci à vous deux.
(ça marche bien sûr)
"ManBas" a écrit dans le message de news:

Bonjour,
J'ai mis dans un module de feuille le code suivant pour insérer
automatiquement la date aprés une modification.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A" & Target.Row) = "=TODAY()"
End If
End Sub

Je souhaiterai renommer l'onglet avec la valeur de "=TODAY()" (format de
cellule jj-mm-aa), mais je ne sais pas comment l'exprimer: le n° de ligne
change sans cesse et je ne connais que:
ActiveSheet.Name = ActiveSheet.[A1]

Merci +++ de votre aide.