jeu. 01 mars 2018, 15h37
eddymaue
atoutfox.public.association
Re: HS (quoi que)
t'as trouvé ca
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And Target.Count = 3 Then ' colonne 3 seulement
If Target.Comment Is Nothing Then Target.AddComment ' Création
commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Target.Value & " Modifié par:" & Environ("UserName") & " Le " & Now
& vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub
bonne soirée
AL a utilisé son clavier pour écrire :
--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
---
This email has been checked for viruses by AVG.
http://www.avg.comPermalink : http://www.atoutfox.org/nntp.asp?ID=0000018891