Créer un macro pour ajouter un commentaire

mthuong Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
mthuong Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
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   Statut Membre Dernière intervention  
 
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

Discussions similaires

créer une adresse gmail pour une autre personne
Emma33000 -
Emma33000 -

2 réponses