sui de modification

[tonychange]

bonjour,

pouvez vous m'aider à effectuer un suivi de modification d'une ou plusieur colonne avec nom de la personne, jour et heure.

voici mon code. je souhaite juste mettre le suivi sur la colonne 8, 10 et 11
mon code fonctionne que sur la colonne 3.
y'aurait'il également un moyen de stocker le suivi de modification dans une colonne a coté de la celule modifiée?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 And Target.Count = 1 Then ' colonne 3 seulement
If Target.NoteText = "" Then Target.AddComment ' Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target.Value, "# ##0.00 €") & " Modifié par:" & Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub

 

[tonychange]

Re : sui de modification

SVP aidez moi

 

[tonychange]

Re : sui de modification

bonjour a tous,

voici mon fichier en piece jointe. je souhaite effectuer le suivi de modification sur 3 colonnes.
tout est indiqué dans le fichier.

help please