Comment entrer automatiquement une date lorsqu'une donnée est saisie dans une colonne ?

Lorsque vous travaillez sur une feuille de calcul, vous souhaitez que la date et l'heure actuelles soient automatiquement insérées dans la colonne B lorsque vous saisissez des données dans la colonne A, comme le montre la capture d'écran suivante. Dans Excel, comment pourriez-vous résoudre cette tâche avec une solution simple et rapide ?

Entrer automatiquement une date lorsqu'une donnée est saisie dans une colonne avec un code VBA

Entrer automatiquement une date lorsqu'une donnée est saisie dans une colonne avec un code VBA

Peut-être qu'il n'y a pas de méthode directe pour traiter cette tâche dans Excel, mais le code VBA suivant peut vous aider, veuillez procéder comme suit :

1. Sélectionnez l'onglet de la feuille où vous souhaitez insérer la date automatiquement, puis faites un clic droit dessus, choisissez Affichage du code dans le menu contextuel, ensuite, dans la fenêtre Microsoft Visual Basic for Applications qui s'affiche, copiez et collez le code suivant dans le Module :

Code VBA : Entrer automatiquement une date lors de la saisie de données dans une autre colonne :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub

2. Ensuite, enregistrez et fermez cette fenêtre de code, revenez à la feuille de calcul, maintenant, lorsque vous entrez des données dans la colonne A, la cellule correspondante dans la colonne B affichera automatiquement la date et l'heure actuelles immédiatement.

Remarque : Dans le code ci-dessus, A2:A15 représente les cellules dans lesquelles vous souhaitez entrer des valeurs.