Date
Fermé
Frederike
-
31 mars 2017 à 10:54
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 31 mars 2017 à 11:16
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 31 mars 2017 à 11:16
1 réponse
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
31 mars 2017 à 11:16
31 mars 2017 à 11:16
Bonjour
clic droit sur l'onglet nom de la feuille
"visualiser le code"
collez ça
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Activate Then
Range("A1").Value = Date
End If
End Sub
remplacez bien sur A1 par l'adresse de la cellule où vous voulez la date
et si vous remplacez Date par Now, vous aurez dans cette cellule le jour et l'heure
crdlmnt
clic droit sur l'onglet nom de la feuille
"visualiser le code"
collez ça
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Activate Then
Range("A1").Value = Date
End If
End Sub
remplacez bien sur A1 par l'adresse de la cellule où vous voulez la date
et si vous remplacez Date par Now, vous aurez dans cette cellule le jour et l'heure
crdlmnt