Commentaire

Bonjour à Tous et merci pour vos réponses qui sont toujours rapides,

Dans Excel, mon soucis : je veux "insérer un commentaire" dans certaines cellules, or quand le petit cadre s'affiche, il m(inscrit Bernard (mon Prénom) : comment faire pour que la case soit vierge quand j'active "insérer un commentaire" ?

Cordialement

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Comment Is Nothing Then
   Target.AddComment   ' Création commentaire
   Target.Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
   Target.Comment.Shape.OLEFormat.Object.Font.Size = 7
   Target.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
   SendKeys "+{F2}"
   Cancel = True
 End If
End Sub

Ceuzin

Bonjour et merci pour cette macro !

Bien cordialement

B Gouthier