Bonsoir,
Je cherche à avoir en B1 la date système à laquelle la saisie à été
faite dans A1 et avoir dans C1 l'heure système de la saisie de A1
MErci de me dire si c'est possible et que une fois saisie ces valeurs
ne changent que si une valeur différente est saisie dans A1
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
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
Philippe.R
Bonsoir, Dans le module de la feuille concernée :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("a1"), Target) Is Nothing Then [b1] = Date [c1] = Hour(Now) End If End Sub
devrait faire l'affaire -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"VIRATELLE Gilles" a écrit dans le message de news:
Bonsoir, Je cherche à avoir en B1 la date système à laquelle la saisie à été faite dans A1 et avoir dans C1 l'heure système de la saisie de A1 MErci de me dire si c'est possible et que une fois saisie ces valeurs ne changent que si une valeur différente est saisie dans A1
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Bonsoir,
Dans le module de la feuille concernée :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("a1"), Target) Is Nothing Then
[b1] = Date
[c1] = Hour(Now)
End If
End Sub
devrait faire l'affaire
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"VIRATELLE Gilles" <vg00@free.fr> a écrit dans le message de news:mn.c5497d45416dc959.11998@free.fr...
Bonsoir,
Je cherche à avoir en B1 la date système à laquelle la saisie à été
faite dans A1 et avoir dans C1 l'heure système de la saisie de A1
MErci de me dire si c'est possible et que une fois saisie ces valeurs
ne changent que si une valeur différente est saisie dans A1
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("a1"), Target) Is Nothing Then [b1] = Date [c1] = Hour(Now) End If End Sub
devrait faire l'affaire -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"VIRATELLE Gilles" a écrit dans le message de news:
Bonsoir, Je cherche à avoir en B1 la date système à laquelle la saisie à été faite dans A1 et avoir dans C1 l'heure système de la saisie de A1 MErci de me dire si c'est possible et que une fois saisie ces valeurs ne changent que si une valeur différente est saisie dans A1
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
