de_hanstrapp
XLDnaute Occasionnel
Bonjour le forum,
J'ai crée dans un classeur une feuille (AA_Historique) qui permet d'obtenir un historique des modifications.
Avec le code ci-après je récupère un certin nombre d'informations. Ma question est comment je peux intégrer en colonne 6 la valeur de la cellule avant la modification.
Merci pour votre aide.
J'ai crée dans un classeur une feuille (AA_Historique) qui permet d'obtenir un historique des modifications.
Avec le code ci-après je récupère un certin nombre d'informations. Ma question est comment je peux intégrer en colonne 6 la valeur de la cellule avant la modification.
Merci pour votre aide.
VB:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Sh.Name = AA_Historique.Name Or Sh.Name = "AA_Donnees" Then Exit Sub
With AA_Historique
.Unprotect Password:=Wbk_Protect
With .Range("A65536").End(xlUp)
.Offset(1, 0).Value = Now()
.Offset(1, 1).Value = Environ("computername")
.Offset(1, 2).Value = Environ("username")
.Offset(1, 3).Value = Sh.Name
.Offset(1, 4).Value = Target.Address
[COLOR=rgb(184, 49, 47)] .Offset(1, 5).Value = ???[/COLOR]
.Offset(1, 6).Value = Target.Value
End With
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=Wbk_Protect
End With
On Error GoTo 0
End Sub