TheProdigy
XLDnaute Impliqué
Bonjour à tous,
Je voudrais appliquer le même code aux colonnes 15 et 16
Merci tout le monde
Je voudrais appliquer le même code aux colonnes 15 et 16
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 And Target.Count = 1 Then
On Error Resume Next
Target.AddComment
Target.Comment.Text Text:=CStr(Now)
Target.Comment.Shape.TextFrame.AutoSize = True
On Error GoTo 0
End If
End Sub
Merci tout le monde