anthoYS
XLDnaute Barbatruc
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.
Désolé, je ne sais plus baliser le code... si quequ'un peut me corriger...
Merci
Cordialement
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.
VB:
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 SubDésolé, je ne sais plus baliser le code... si quequ'un peut me corriger...
Merci
Cordialement
Dernière édition: