Que préciser pour que le commentaire soit en gras ... ? [RéSoLu]

[anthoYS]

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)With Target
    If .Column = 3 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 48
            .Comment.Shape.Height = 12
        End If
        SendKeys "%im"
    End If
End With
If Not Application.Intersect(Target, Range("A:A")) Is Nothing And IsEmpty(Target) Then
Calendrier.Show
End If
End Sub

Merci
à+

 

[jecherche]

Re : Que préciser pour que le commentaire soit en gras quand je le saisirais directem

Bonjour,

À voir si c'est bon :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
  With Target
  Cancel = True
  If .Comment Is Nothing Then
     .AddComment
     .Comment.Shape.Width = 48
     .Comment.Shape.Height = 12
     .Comment.Shape.TextFrame.Characters.Font.Bold = True
        
     SendKeys "%im"
  End If

  End With
End If
End Sub

Jecherche

 

[anthoYS]

Re : Que préciser pour que le commentaire soit en gras quand je le saisirais directem

ok merci !!