pascal21
XLDnaute Barbatruc
bonsoir à tous
j'utilise ce code pour inscrire la date dans une cellule sur un double clic
ça fonctionne mais je ne suis pas entierement satisfait
j'aimerais que le commentaire se créer au changement de valeur des celulles des colonnes O P S T uniquement
les essais que j'ai tenté se sont revélés infructueux
pouvez-vous m'aider,
merci
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.ClearComments
If Target.Comment Is Nothing Then
Target.AddComment
Target.Comment.Text Text:=CStr(Date) & Chr(10)
lg = Len(Target.Comment.Text)
With Target.Comment.Shape.TextFrame
.Characters(Start:=1, Length:=lg).Font.Name = "Verdana"
.Characters(Start:=1, Length:=lg).Font.Size = 8
.Characters(Start:=1, Length:=lg).Font.Bold = True
.Characters(Start:=1, Length:=lg).Font.Italic = True
.Characters(Start:=1, Length:=lg).Font.ColorIndex = 3
.Characters(Start:=lg, Length:=99).Font.Bold = False
.Characters(Start:=lg, Length:=99).Font.Italic = False
.Characters(Start:=lg, Length:=99).Font.ColorIndex = 1
End With
SendKeys "m"
Else
SendKeys "m"
End If
End Sub
ça fonctionne mais je ne suis pas entierement satisfait
j'aimerais que le commentaire se créer au changement de valeur des celulles des colonnes O P S T uniquement
les essais que j'ai tenté se sont revélés infructueux
pouvez-vous m'aider,
merci