Modif de commentaire sous VBA excelRésolu

Question

Bonjour,
J'ai cr&#233;&#233; un programme sous VBA excel, ce programme g&#233;n&#233;re un tableau dans lequel j'ins&#233;re des commentaires mais ces commentaires, je n'arrive n'y &#224; les modifier n'y &#224; r&#233;cup&#233;rer leur contenu (si j'arrivais &#224; r&#233;cup&#233;rer le contenu je supprimerais le commentaire et j'en rajouterai un contenant la nouvelle partie ainsi que l'ancienne partie du commentaire).
J'ai essay&#233; de m'aider des macros mais &#231;a n'a servi &#224; rien, je cherchais et je n'ai rien trouv&#233;.
Si vous pouvez m'aider merci infiniment!!!
Cordialement, C&#233;dric

Diegoch · Accepted Answer

Donner a la valeur commentaire le contenu de ton annotation :
      Commentaire = Range("A1").Comment.Text

Modifier le contenu de ton annotation :
      Range("A1").Comment.Text Text:="mon autre texte"

Sinon, je vois pas trop ce que tu veux faire !!

sobeit1 · Answer

Je me suis rendu compte en faisant mes recherches que les commentaires peuvent &#234;tre consid&#233;r&#233; comme les lignes descriptifs du programme hors les commentaires dont je parle sont ceux que l'on peut trouver dans excel, bouton de droite ins&#233;rer commentaire dans une cellule, ou sous VBA en faisant :
 Range("A1").AddComment
 Range("A1").Comment.Visible = False
 Range("A1").Comment.Text Text:= _
 "Monsieur machin bidule chose"
merci encore si vous pouvez m'aider

sobeit1 · Answer

Je te remercie, mais je me suis d&#233;broull&#233; autrement, en faite plutot que d'inscrire directement un commentaire j'ai cr&#233;&#233; dans une page vierge un texte qui contient le text du commentaire, ensuite 
Range("feuil2!A1").Value = Range("feuil2!A1").Value + _
"coucou c'est moi que vl&#224;" & chr(10) & " "
ensuite une fois la boucle fini et donc les phrases des commentaires ajout&#233; les unes au autres sur la feuil2
il me suffit de faire une comparaison ( je v&#233;rifie si la valeur est pas nul pour &#233;viter quelques erreurs)
if range("feuil2!A1") <> "" then
Range("feuil1!A1").AddComment
Range("feuil1!A1").Comment.Visible = False
Range("feuil1!A1").Comment.Text Text:= _
Range("feuil2!A1").value

Bien evidement mon prog n'est pas si simple, mais il suffit de l'adopter &#224; votre guise.
J'esp&#233;re que &#231;a pourra vous servir
Merci encore
Cordialement C&#233;dric

Modif de commentaire sous VBA excel

3 réponses

Discussions similaires