Comment préciser de la colonne 3 à 36 si double clic alors insérer commentaire ? [résolu]

[anthoYS]

Bonjour,


J'aimerais savoir comment modifier ce code de feuille pour que si le double clic à lieu dans les colonnes de 3 à 36, alors insérer un commentaire.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lig As Long, col As Long
col = Target.Column
lig = Target.Row

With Target
If .Column = 3 Then
Cancel = True
If .Comment Is Nothing Then
.AddComment
.Comment.Shape.Width = 160.5
.Comment.Shape.Height = 60.5
.Comment.Shape.TextFrame.Characters.Font.Bold = True
End If
SendKeys "%im"
End If
End With
End Sub

Désolé, je ne sais plus baliser le code... si quequ'un peut me corriger...
Merci
Cordialement

 

[anthoYS]

c'est bon j'ai trouvé. Merci !

If .Column > 3 And .Column < 36 Then

juste pour baliser svp !

 

[phlaurent55]

Bonjour,

If Target.Column >=3 And Target.Column<=36 Then

À+
Philippe

 

[DoubleZero]

Bonjour à toutes et à tous,

... je ne sais plus baliser le code... si quequ'un peut me corriger...

A bientôt

 

[anthoYS]

Merci @DoubleZero !