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!

1 réponse

  1.
    Frenchie83 Messages postés 2254 Statut Membre 339
     
    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
    1. 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