Ajouter commentaire en VBa

[breeze]

Bonjour,
Je cherche a insérer un commentaire en utilisant une macro

Private Sub CommandButton27_Click()
'ajouter commentaires
If Intersect(ActiveCell, Range("d6:d400")) Is Nothing Then Exit Sub
On Error Resume Next
ActiveCell.AddComment
ActiveCell.Comment.Visible = True


End Sub

Je cherche comment la finir. Présentement la boite de commentaire s'ouvre je peux y entrer mon texte mais je voudrais qu'en cliquant dans une autre cellule le boite de commentaire se ferme.

Pouvez vous m'aider ?

Merci !

 

[Pierrot93]

Re : Ajouter commentaire en VBa

Bonjour,

un lien interressant sur les "commentaires" :
http://boisgontierjacques.free.fr/pages_site/commentaire.htm
bonne journée
@+