aubelix
XLDnaute Impliqué
Bonsoir à tous les Amis du Forum.
Une nouvelle fois besoin de votre aide pour savoir s'il était possible de
faire cohabiter 2 actions sur Worksheet_Change.
Ou une autre solution ?
Par avance, Merci pour votre aide.
Cordialement.
'Ecrire la date de modification dans la colonne R correspondant à la ligne de la date
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D D")) Is Nothing Then
If Target <> "" Then Range("R" & Target.Row) = Date
End If
End Sub
'le code suivant empêche l'utilisateur
'd'effacer le contenu de la cellule "J1"e date du jour
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Not IsEmpty(Range("A1")) Then Exit Sub
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub
Une nouvelle fois besoin de votre aide pour savoir s'il était possible de
faire cohabiter 2 actions sur Worksheet_Change.
Ou une autre solution ?
Par avance, Merci pour votre aide.
Cordialement.
'Ecrire la date de modification dans la colonne R correspondant à la ligne de la date
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D D")) Is Nothing Then
If Target <> "" Then Range("R" & Target.Row) = Date
End If
End Sub
'le code suivant empêche l'utilisateur
'd'effacer le contenu de la cellule "J1"e date du jour
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Not IsEmpty(Range("A1")) Then Exit Sub
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub
Dernière édition: