Créer un macro pour ajouter un commentaire pour chaque cellule
mthuong
Messages postés
15
Statut
Membre
-
mthuong Messages postés 15 Statut Membre -
mthuong Messages postés 15 Statut Membre -
Bonjour,
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!
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:
- Créer un macro pour ajouter un commentaire pour chaque cellule
- Créer un lien pour partager des photos - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer un compte gmail - Guide
- Creer un fichier .bat - Guide
1 réponse
Bonjour,
Vous ne pouvez pas ajouter un commentaire s'il existe deja, il faut l'effacer
Vous ne pouvez pas ajouter un commentaire s'il existe deja, il faut l'effacer
Sub Ajoutcommentaire()
'
' Ajoutcommentaire Macro
'
Range("C2").ClearComments
Range("C2").AddComment
Range("C2").Comment.Visible = False
Range("C2").Comment.Text Text:="Location pour etudiants portable1:" & Chr(10) & ""
Range("C2").Select
End Sub
Est ce que c'est normal?
Est ce que c'est normal? Boh oui, puisque c'est ecrit C2 dans le code !!!!
Que voulez-vous faire precisement ???