Discussion :

[Chatvador]

Bonjour,

Je souhaiterais copier le contenu d'une cellule dans une autre sous la forme d'un commentaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("E8").AddComment
    Range("E8").Comment.Visible = False
    Range("E8").Comment.Text Text:="commentaire:" & Chr(10) & "Blablabla"

Est-il possible de faire référence au texte contenu dans une autre cellule à la place de "Blablabla"?

Merci beaucoup!

[casefayere]

Bonjour,
D8 dans le commentaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
....
Range("E8").Comment.Text Text:="commentaire:" & Chr(10) & Range("D8").Value
....

[Chatvador]

Re-bonjour,

J'ai essayé votre code mais j'ai une erreur 1004 "Erreur définie par l'application ou par l'objet". Que dois-je faire?

[casefayere]

Re-bonjour,

J'ai essayé votre code mais j'ai une erreur 1004 "Erreur définie par l'application ou par l'objet". Que dois-je faire?

me montrer tout le code

[Chatvador]

Et voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub commentaires()
 
 Range("E8").AddComment
    Range("E8").Comment.Visible = False
    Range("E8").Comment.Text Text:="commentaire:" & Chr(10) & Range("A6").Value
 
End Sub

[casefayere]

patience, je répondrai ce soir, je ne suis pas seul

[casefayere]

j'ai essayé ce que je proposais sans problème,
tu postes sur le forum "General VBA", est-ce pour Vba excel que tu cherches une solution ? si oui, il aurait mieux valu poster dans ce forum, si non, je ne suis pas compétent

à voir si tous tes Ranges sont dans la même feuille, qu'est-ce que Range("A6") ?, etc.

[Chatvador]

Merci beaucoup ça fonctionne!

j'avais mon ancien commentaire dans la cellule, d'où l'erreur!

J'irai poster dans la bonne catégorie la prochaine fois