Commentaire avec une macro

Bonjour,

Dans ma feuille, je veux inscrire de commentaires avec une macro. Cependant, Certains commentaires reviennent souvent et j'aimerais ne pas avpir à taper le même texte à chaque fois.
Les textes des commentaires apparaissent dans une listbox d'un userform. je choisi le bon commentaire et je veux qu'il devienne le commentaire de la cellule active.
Selon mes essais, la commande Addcomment n'accepte que du texte.

Y a t-il un moyen de mettre une donnée en commentair?

Merci

Bonsoir,

tu aurai pu nous montrer un de tes tests qui ne fonctionne pas !

tiens cela fonctionne :

Code:

---

ThisWorkbook.Sheets("Feuil1").Range("A1").AddComment "Un commentaire " & ListBox1

---

Bonjour,

Voici le code

Code:

---

1 2 3 4 5 6 7

Load FormComm FormComm.TextBox1.Value = "" Range("Commsel") = Sheets("Feuil1").Range("A4").Value FormComm.Show ActiveCell.AddComment Range("Commsel").Value ActiveCell.Comment.Visible = False Unload FormComm

---

Le commentaire doit-il obligatoirement être du texte?

Merci

Bonsoir,

c'est quoi : Range("Commsel") ...? quel est le message d'erreur de ton code ..

Bien sur qu'un commentaire c'est du texte tu voudrai quoi d'autre ? une image ?

Bonjour,

Range("Commsel")

"Commsel" est le nom de la cellule qui est utilisée comme Controle source du ListBox1.

À l'exécution, c'est la ligne suivante qui plante:

Code:

---

ActiveCell.AddComment Range("Commsel").Value

---

C'est bien évident que le commentaire est du texte, mais doit-on obligatoirement l'inscrire directement ou peut-on sélectionner un texte dans le ListBox1 d'un Userform. Si on ne peut pas, ça donne rien de faire la macro.

Merci encor

Bonjour,

Cette méthode fonctionne très bien, tu peux faire référence à une cellule pour déterminer ton texte

Ta plage "Commsel" ne doit en revanche faire représenter qu'une seule cellule pour que ça fonctionne et elle ne doit pas être vide

Bonsoir,

Oui la chaine doît être non-vide et s'il y as déjà un commentaire dans ta cellule tu dois d'abords l'effacer.