tonychange
XLDnaute Occasionnel
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
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