Ajouter commentaire en VBa

breeze

XLDnaute Occasionnel
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 !
 

Discussions similaires

Statistiques des forums

Discussions
312 932
Messages
2 093 725
Membres
105 798
dernier inscrit
Sly67