Créer un macro pour ajouter un commentaire

Fermé
mthuong Messages postés 15 Date d'inscription lundi 3 août 2015 Statut Membre Dernière intervention 28 avril 2016 - 3 août 2015 à 13:12
mthuong Messages postés 15 Date d'inscription lundi 3 août 2015 Statut Membre Dernière intervention 28 avril 2016 - 3 août 2015 à 13:53
Je souhaiterais créer un macro pour ajouter un commentaire dans un cellule. Quand j'ai lancé le macro, une boîte de dialogue a indiqué qu'il y a un erreur d'exécution 1004

Et mon code est :

Sub Ajoutcommentaire()
'
' Ajoutcommentaire Macro
'

'
Range("C2").AddComment
Range("C2").Comment.Visible = False
Range("C2").Comment.Text Text:="Location pour etudiants portable1:" & Chr(10) & ""
Range("C2").Select
End Sub

Apparemment, l'erreur se trouve dans " Range("C2").AddComment"

Je suis débutante avec VBA donc je ne sais pas encore corriger le code. Est ce que quelqu'un peut m'aider?
Je vous remercie!
A voir également:

1 réponse

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
3 août 2015 à 13:36
Bonjour
Essayez comme ceci
Sub Ajoutcommentaire()
    Range("C2").Select '
    ActiveCell.AddComment
    ActiveCell.Comment.Visible = False
    ActiveCell.Comment.Text Text:="Location pour etudiants portable1:" & Chr(10) & ""
End Sub

Cdlt
0
mthuong Messages postés 15 Date d'inscription lundi 3 août 2015 Statut Membre Dernière intervention 28 avril 2016
3 août 2015 à 13:53
Bonjour, merci votre réponse. J'ai réussi à appliquer en modifiant en tout petit peu votre code:

Range("A2").ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="Location pour etudiants portable1:" & Chr(10) & ""
ActiveCell.Select

Bonne journée à vous
0