Insérer automatiquement la date et l’horodatage dans la cellule adjacente, Excel VBA

Un horodatage est quelque chose que vous utilisez lorsque vous souhaitez suivre des activités.
Par exemple, vous souhaiterez peut-être suivre des activités telles que le moment où une dépense particulière a été engagée, à quelle heure la facture de vente a-t-elle été créée, quand la saisie de données a-t-elle été effectuée dans une cellule, quand le rapport a-t-il été mis à jour pour la dernière fois, etc.
Utilisez ce code pour insérer un horodatage dans la cellule adjacente lorsqu’une entrée est effectuée ou que le contenu existant est modifié.
‘Ce code insère un horodatage dans la cellule adjacente

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Handler
If Target.Column = 1 And Target.Value <> ”” Then
Application.EnableEvents = False
Target.Offset(0, 1)	= Format(Now(), ”dd-
mm-yyyy hh:mm:ss")
ou 
Application.EnableEvents = True End I f Handler:
End Sub

Notez que vous devez insérer ce code dans la fenêtre de code de la feuille de calcul (et non dans la fenêtre de code du module comme nous l’avons fait dans d’autres exemples de macro Excel jusqu’à présent). Pour cela, dans l’éditeur VB, double-cliquez sur le nom de la feuille sur laquelle vous souhaitez cette fonctionnalité. Ensuite, copiez et collez ce code dans la fenêtre de code de cette feuille.
De plus, ce code est conçu pour fonctionner lorsque la saisie des données est effectuée dans la colonne A (notez que le code a la ligne Target.Column = 1). Vous pouvez modifier cela en conséquence.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x