Date statique

19 réponses

MichelJ

13/01/2004 à 01:31

Salut!

Comment faire pour qu' une entrée automatique de la date du jour (statique) soit créée dans une cellule (Excel 2002 SP1 avec Windows XP) après qu'on y ait fait une autre entrée? Par exemple, si j'inscris du texte dans une cellule, la date du jour (statique) peut-elle s'y inscrire automatiquement (dans la même ou une autre) dès la fin de l'entrée du texte?

Merci!

10 réponses

1 2

13/01/2004 à 03:37

Exemple pour que ça le fasse en A1
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
zz = zz.Value & " - " & Date
Application.EnableEvents = True
End Sub

AV

ChrisV

13/01/2004 à 03:49

Bonjour Michel,

Dans la feuille de code de l'onglet concerné...
En supposant que la saisie se fasse en A1 de la Feuil1! et que tu veuilles
indiquer la date en B1

Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$A$1" And target <> "" Then _
target.Offset(0, 1) = Format(Date, "dd/mm/yyyy")
Application.EnableEvents = True
End Sub

Si tu désires que la date du jour soit indiquée (dans la même cellule, A1)
après la saisie effectuée

Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$A$1" And target <> "" Then _
target = target & " - " & Format(Date, "dd/mm/yyyy")
Application.EnableEvents = True
End Sub

ChrisV

"MichelJ" a écrit dans le message de news:

Salut!

Comment faire pour qu' une entrée automatique de la date du jour
(statique) soit créée dans une cellule (Excel 2002 SP1 avec Windows XP)

après qu'on y ait fait une autre entrée? Par exemple, si j'inscris du texte
dans une cellule, la date du jour (statique) peut-elle s'y inscrire
automatiquement (dans la même ou une autre) dès la fin de l'entrée du texte?

Merci!

ChrisV

13/01/2004 à 04:00

Salut Alain,

Pas vu que tu étais passé par là... désolé pour le "doublon".
M'enfin... il était temps ! j'commencais à fatiguer...
(bonne nuit...)

ChrisV

"AV" a écrit dans le message de news:
#

Exemple pour que ça le fasse en A1
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
zz = zz.Value & " - " & Date
Application.EnableEvents = True
End Sub

AV

13/01/2004 à 04:15

M'enfin... il était temps ! j'commencais à fatiguer...
(bonne nuit...)

Si t'avais consulté le tableau de garde....!
;-)
AV

ChrisV

13/01/2004 à 08:18

;-)

ChrisV

"AV" a écrit dans le message de news:

M'enfin... il était temps ! j'commencais à fatiguer...
(bonne nuit...)

Si t'avais consulté le tableau de garde....!
;-)
AV

zrd

13/01/2004 à 11:07

Bonjour,

"ChrisV" a écrit dans le message news:
e44ur$

Bonjour Michel,
Dans la feuille de code de l'onglet concerné...
En supposant que la saisie se fasse en A1 de la Feuil1! et que tu veuilles
indiquer la date en B1
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$A$1" And target <> "" Then _
target.Offset(0, 1) = Format(Date, "dd/mm/yyyy")
Application.EnableEvents = True
End Sub
Si tu désires que la date du jour soit indiquée (dans la même cellule, A1)
après la saisie effectuée
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$A$1" And target <> "" Then _
target = target & " - " & Format(Date, "dd/mm/yyyy")
Application.EnableEvents = True
End Sub
ChrisV

Je serais interesse par ce type de "chose" mais a ceci pres :
j'aimerais que la date de la derniere saisie/modif soit indiquée dans la
cellule située a droite de la saisie, et, que le nom de l'utilisateur soit
indiqué dans la cellule encore a droite.

Merci
@+

13/01/2004 à 11:18

Dans le module de la feuille et pour A1 :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
If zz = "" Then
Range(zz(, 2), zz(, 3)) = ""
Else: zz(, 2) = Date: zz(, 3) = Application.UserName
End If
Application.EnableEvents = True
End Sub

AV

zrd

13/01/2004 à 11:52

"AV" a écrit dans le message news:

Dans le module de la feuille et pour A1 :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
If zz = "" Then
Range(zz(, 2), zz(, 3)) = ""
Else: zz(, 2) = Date: zz(, 3) = Application.UserName
End If
Application.EnableEvents = True
End Sub
AV

Merci,

je vais tester

Y a un service URGENCE sur ce newsgroup !!!

J'ai une question qui reste sans reponse :
le 12/01/04 à 09:28 par zrd : protection +partage classeur +suivi modif
Un petit coup d'oeil ???

Encore merci
@+

zrd

13/01/2004 à 11:55

"AV" a écrit dans le message news:

Dans le module de la feuille et pour A1 :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
If zz = "" Then
Range(zz(, 2), zz(, 3)) = ""
Else: zz(, 2) = Date: zz(, 3) = Application.UserName
End If
Application.EnableEvents = True
End Sub

AV

dois je repeter ce code pour autant de cellules modifiables ?
va y avoir environs 200-300 cellules a suivre par feuilles
et 10 feuilles dans le classeur !!

Merci
@+

Misange

13/01/2004 à 13:17

t'as dormi TOUT CA !
pfft, tu vieillis !
Ah non c'est vrai c'est Alain qui vieillit et qui devient insomniaque :-)
les 2/12 à vous deux. Pas mal !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

le 13/01/2004 08:18:

;-)

ChrisV

"AV" a écrit dans le message de news:

M'enfin... il était temps ! j'commencais à fatiguer...
(bonne nuit...)

Si t'avais consulté le tableau de garde....!
;-)
AV

1 2

Date statique

10 réponses

Veuillez sélectionner un problème