Saisi date et heure, qui ne changent pas, dans 2 colonnes différentes

Bonjour,

Je suis une vraie débutante en VBA, mais j’essaye de trouver un code qui me permettrait de mettre la date et heure automatique dans mon tableau, sans que cela change quand on ouvre le fichier. J’ai déjà trouvé, ailleurs sur le forum, un code qui marche parfaitement pour la date et que j’ai adapté à mon fichier, mais je ne sais pas comment ajouter la même chose pour l’heure, qui doit s’afficher dans une autre colonne (D).

Private Sub Worksheet_Change(ByVal Target As Range)

Dim h, iSct As Range
Set iSct = Intersect(Target, Range("E:E"))
If iSct Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each h In iSct.Cells
If IsEmpty(h) Then
h.Offset(0, -3) = ""
Else
h.Offset(0, -3) = Format(Now, "mm/dd/yy")
End If
Next
Application.EnableEvents = True

End Sub

Si quelqu’un pourra m’aider, je serais très reconnaissantes.

Merci d’avance

Bonjour,

En complément de ta macro

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim h As Range, iSct As Range
  Set iSct = Intersect(Target, Range("E:E"))
  If iSct Is Nothing Then Exit Sub
  Application.EnableEvents = False
    For Each h In iSct.Cells
      If IsEmpty(h) Then
        h.Offset(0, -3) = ""
        h.Offset(0, -1) = ""
      Else
        h.Offset(0, -3) = Format(Now, "mm/dd/yy")
        h.Offset(0, -1) = Format(Time, "hh:mm")
      End If
    Next h
  Application.EnableEvents = True
End Sub
1 « J'aime »

Milles merci ça marche parfaitement. :grinning::grinning::grinning:

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.