Créer un macro pour ajouter un commentaire pour chaque cellule
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 -
mthuong Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
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
- Créer un compte google - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte gmail - Guide
- Créer un compte instagram sur google - 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 ???