Bonjour,
Soit un tableau structuré nommé "t_Donnees" contenant une colonne Horodatage.
Soit l'événement dans l'onglet contenant le tableau qui réagit sur modification de la cellule dans la colonne Info 3 et met à jour la cellule Horodatage avec la fonction GroupeDateHeure.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("t_Donnees[Info 3]")) Is Nothing Then
Target.Offset(0, 1) = GroupeDateHeure
End If
End Sub
Dans un module standard :
Option Explicit
Function GroupeDateHeure()
Dim DateDeCreation
Dim HeureEnCours As Variant
DateDeCreation = Year(Date) & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00")
HeureEnCours = Split(Time, ":")
GroupeDateHeure = DateDeCreation & " " & Join(HeureEnCours, "") & " " & Application.UserName
End Function
Résultat :
A l'ouverture du fichier, il suffira de filtrer la colonne horodatage sur le jour pour voir ce qui a été modifié et par qui.