appliquer un commentaire de saisie à plusieurs colonnes simultanément

[TheProdigy]

Bonjour à tous,

Je voudrais appliquer le même code aux colonnes 15 et 16

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

 

[Hieu]

Salut,
A tester :

Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 15 Or Target.Column = 16) 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

J'ai mis des parenthèses sur le "or" dans le doute des priorités

Edit : correction de la condition 16 et pas 15 ^^)

 

[TheProdigy]

Salut,
A tester :

Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 15 Or 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

J'ai mis des parenthèses sur le "or" dans le doute des priorités

Merci,

ça marche à merveille.

Merci Hieu.