Affichage auto de la date+heure de saisie

Affichage automatique de l'heure de saisie

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 And Target.Row <= 20 Then

Target.Offset(0, 1) = Format(Now, "hh:mm")

End If

End Sub

dans ce code ( qui marche bien) je voudrais remplacer le format d'affichage, ici >>>>> Target.Offset(0, 1) = Format(Now, "hh:mm")

Je souhaite que s'affiche la date et l'heure

j'ai bien tenté de remplacer Now par Maintenant () ou aujourdhui() et en indiquant dans le menu Format>Date : ex jj/mm/aa hh:mm

Mais rien ne marche

Merci de vos réponses

cordialement

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row <= 20 Then
Target.Offset(0, 1) = Format(Now, "dd/mm/yy hh:mm")
End If
End Sub
Rechercher des sujets similaires à "affichage auto date heure saisie"