Adapter un Worksheet_Change
Bonjour,
Jusque là j'utilisais le code suivant pour faire apparaitre la date modification d'une cellule, actuellement la modification d'une cellule des colonnes D ou E fait apparaitre un message dans la colonne G mais maintenant j'ai besoin que la modification d'une cellule de la colonne D apparaisse dans la colonne G et une modification dans la colonne E apparaisse en H (ex: modification de E10 indique en H10 "E10 modifiée le 06/04/17):
Code:
1
2
3
4
| Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D7:E500")) Is Nothing Or Target.Count > 1 Then: Exit Sub
Range("G" & Target.Row) = Target.Address(False, False) & " modifiée le " & Format(Date, "dd/mm/yy")
End Sub |
Quelqu'un aurait une idée à me proposer?
Merci
