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 (C4😀44) 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+