Worksheet_change sur modif d'une colonne

[ConsultantJP]

Bonjour à tous,

Je viens de faire un code worsheet_change tout simple , qui lorsque je rentre dans une celulle de la colonne 11 indique dans la colonne 12 le nom de la personne qui a fait la modif.

Jusque la OK.

Mais j'aurais souhaiter que cela fonctionne que lorsque la celulle est modifier.

J'aavis pensé calculer la longueur du texte et si différent ça indique bien le nom de la personne mais je ne vois pas comment ça peut fonctionner dans le cadre du worksheet change.

avez vous une idée ?
Merci par avance

 

[job75]

Re : Worksheet_change sur modif d'une colonne

Bonjour ConsultantJP,

Une idée avec Application.Undo :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K2:K65536]) Is Nothing Or Target.Count > 1 Then Exit Sub
Dim sel As Range, v As String
Set sel = Selection
Application.EnableEvents = False
Application.Undo
v = Target.Text
Application.Undo
Application.EnableEvents = True
sel.Select
If Target.Text <> v Then
MsgBox "Colonne K modifiée"
End If
End Sub

A+

 

[Cousinhub]

Re : Worksheet_change sur modif d'une colonne

Bonjour,

peut-être ainsi :

Dim Ancien

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
If Target <> Ancien Then
    Target.Offset(0, 1) = Environ("UserName")
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then Ancien = Target
End Sub