Date et Heure

Phoenix1979 -  
fabien25000 Messages postés 697 Statut Membre -
Bonjour,

Je voudrais acter la date et l'heure de saisie d'une donnée dans la cellule suivante.
Ex:
A1: Bonjour; B1: Date et Heure de la saisie de A1

Merci de la réponse
Belle journée

2 réponses

  1. DjiDji59430 Messages postés 4278 Date d'inscription   Statut Membre Dernière intervention   717
     
    Bonjour,
    Une façon de faire :

    en B1 control et point-virgule un espace control et 2 points
    0
  2. fabien25000 Messages postés 697 Statut Membre 59
     
    Bonjour une variante en VBA
    Alt+F11, cliquer sur visualiser le code et coller le code ci dessous :

    Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
        Target.Offset(0, 1) = Format(Now, "dd/mm/yyyy") & " à " & Format(Time, "hh:mm:ss")
    End If
    
    End Sub

    0