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.