Date et heure saisie cellule

[s2fruit]

Bonjour à tous

Je cherche à incrémenter dans une cellule (E4) la date et heure de saisie des cellules (C4)ou(D4).

J'ai trouvé la fonction MAINTENANT(), mais comment figer l'incrémentation au fur et à mesure des saisies ?

MERCI par avance pour votre aide.

Bonne journée

 

[pedrag31]

Re : Date et heure saisie cellule

Bonjour s2fruit, Bonjour le forum,

Une solution avec macro en PJ.

Bonne journée,

 

[s2fruit]

Re : Date et heure saisie cellule

Bonjour s2fruit, Bonjour le forum,

Une solution avec macro en PJ.

Bonne journée,

Merci beaucoup pedrag31 pour cette piste.

Ne connaissant pas trop le Vba, comment puis-je adapter la macro pour toutes mes cellules (C444) pour mon fichier joint.

 

[BOISGONTIER]

Re : Date et heure saisie cellule

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModification.xls

JB

 

[s2fruit]

Re : Date et heure saisie cellule

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModification.xls

JB

J'essaye désespérément d'adapter l'une des 2 solutions à mon fichier... mais je n'y arrive pas car j'ai toujours des messages d'erreurs Vba
Quelqu'un pourrait il m'adapter une solution à mon exemple ?
MERCI pour mes SAMARITAINS.

 

[hoerwind]

Re : Date et heure saisie cellule

Bonjour,

En pièce jointe un exemple par formule, à adapter à tes besoins, c'est le principe qui compte.

 

[chipriote]

Re : Date et heure saisie cellule

ci-joint une proposition

 

[s2fruit]

Re : Date et heure saisie cellule

ci-joint une proposition

MERCI !
pedrag31
BOISGONTIER
hoerwind
chipriote

 

[job75]

Re : Date et heure saisie cellule

Bonjour le fil,

Il me semble qu'il faut tenir compte de la possibilité de modifier simultanément plusieurs cellules en colonnes C et D (effacement ou copier/coller).

De plus si l'on "efface" des cellules qui n'ont jamais été renseignées, ça ne doit pas être considéré comme une modification...

Private Sub WorkSheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("C4:D65536"), Me.UsedRange)
If Target Is Nothing Then Exit Sub
Dim cel As Range
For Each cel In Target
If cel <> "" Or Cells(cel.Row, "E") <> "" Then Cells(cel.Row, "E") = Now
Next
End Sub

A+