Sauvegarder la date lors de la saisie

gilbert_RGI

XLDnaute Barbatruc

• 27 Août 2008

• #2

Re : Sauvegarder la date lors de la saisie

Boujour

Ceci peut-il faire votre demande ?

Code:

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

 

Pièces jointes

• date_auto.xls

  35 KB · Affichages: 92
• date_auto.xls

  35 KB · Affichages: 95
• date_auto.xls

  35 KB · Affichages: 93

Dernière édition: 27 Août 2008

Vote positif 0 Vote négatif

M

marc.r

Guest

• 27 Août 2008

• #3

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 27 Août 2008

• #4

Re : Sauvegarder la date lors de la saisie

Voilà en PJ

Gilbert_RGI

 

Pièces jointes

• date_auto.xls

  34 KB · Affichages: 101
• date_auto.xls

  34 KB · Affichages: 100
• date_auto.xls

  34 KB · Affichages: 102

Dernière édition: 27 Août 2008

Vote positif 0 Vote négatif

M

marc.r

Guest

• 27 Août 2008

• #5

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..)

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 27 Août 2008

• #6

Re : Sauvegarder la date lors de la saisie

marc.r à dit:

Bonjour,

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

Cliquez pour agrandir...

Voir le partage de votre classeur

sinon enlever le code de protection

Cdlt

RGI

 

Vote positif 0 Vote négatif

M

marc.r

Guest

• 28 Août 2008

• #7

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

Cliquez pour agrandir...

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. 😉

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 28 Août 2008

• #8

Re : Sauvegarder la date lors de la saisie

Bonjour

comme ceci

Code:

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

 

Vote positif 0 Vote négatif

M

marc.r

Guest

• 28 Août 2008

• #9

Re : Sauvegarder la date lors de la saisie

Bonjour,

merci encore.

 

Vote positif 0 Vote négatif