appliquer un commentaire de saisie à plusieurs colonnes simultanément

TheProdigy · 9 Novembre 2016

Bonjour à tous,

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

Hieu · 9 Novembre 2016

Salut,
A tester :

VB:

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 · 9 Novembre 2016

Hieu à dit:

Salut,
A tester :

VB:

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.

appliquer un commentaire de saisie à plusieurs colonnes simultanément

TheProdigy

XLDnaute Impliqué

Hieu

XLDnaute Impliqué

TheProdigy

XLDnaute Impliqué

Discussions similaires