Sauvegarder la date lors de la saisie

[marc.r]

bonjour,

Dans un fichier partagé, les opérateurs saisissent plusieurs données sur une ligne.
Je souhaiterais pouvoir enregistrer la date lors de la saisie d’une de ces cellules.
Exemple
Saisie par opérateur de A1, B1, C1, D1
-> lors de la saisie de D1 -> enregistrement auto et définitif dans E1 de la date/heure.

merci

 

[gilbert_RGI]

Re : Sauvegarder la date lors de la saisie

Boujour

Ceci peut-il faire votre demande ?

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect  
    If Target.Column <> 4 Then Exit Sub
    If Target <> "" Then
        Target.Offset(0, 1) =  [COLOR="Red"]Date & " " & Time[/COLOR]
    Else
        Target.Offset(0, 1) = ""
    End If
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[marc.r]

Re : Sauvegarder la date lors de la saisie

Bonjour,

Merci, ça correspond bien au besoin.
Juste pourrait-on rajouter dedans l'heure (hh:mm).
donc obtenir jj/mm/aaaa - hh/mm

merci

 

[gilbert_RGI]

Re : Sauvegarder la date lors de la saisie

Voilà en PJ

Gilbert_RGI

 

[marc.r]

Re : Sauvegarder la date lors de la saisie

Bonjour,

cela marche nikel, mais .. le fichier est partagé, et dés que je partage cela rend les modifications impossibles (protection de feuille..)

 

[gilbert_RGI]

Re : Sauvegarder la date lors de la saisie

Bonjour,

cela marche nikel, mais .. le fichier est partagé, et dés que je partage cela rend les modifications impossibles (protection de feuille..)

Voir le partage de votre classeur

sinon enlever le code de protection

Cdlt

RGI

 

[marc.r]

Re : Sauvegarder la date lors de la saisie

bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target <> "" Then
If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date & " - " & Format(Time, "hh:mm")
Else
Target.Offset(0, 1) = ""
End If

End Sub

ceci fonctionne en partagé.

si je souhaitais le faire la même chose sur plusieurs colonnes par ex 4,8,12.
quel serait le code svp.

merci pour votre aide.

 

[gilbert_RGI]

Re : Sauvegarder la date lors de la saisie

Bonjour

comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Or Target.Column = 8 Or Target.Column = 12 Then
    If Target <> "" Then
        If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date & " - " & Format(Time, "hh:mm")
    Else
        Target.Offset(0, 1) = ""
    End If
    Else
    Exit Sub
    End If
    
End Sub

salutations

Gilbert_RGI

 

[marc.r]

Re : Sauvegarder la date lors de la saisie

Bonjour,

merci encore.