Modif de commentaire sous VBA excel [Résolu]

Messages postés
32
Date d'inscription
lundi 6 novembre 2000
Dernière intervention
29 avril 2005
- 22 mars 2005 à 08:48 - Dernière réponse :
Messages postés
32
Date d'inscription
lundi 6 novembre 2000
Dernière intervention
29 avril 2005
- 31 mars 2005 à 09:08
Bonjour,
J'ai créé un programme sous VBA excel, ce programme génére un tableau dans lequel j'insére des commentaires mais ces commentaires, je n'arrive n'y à les modifier n'y à récupérer leur contenu (si j'arrivais à récupé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é de m'aider des macros mais ça n'a servi à rien, je cherchais et je n'ai rien trouvé.
Si vous pouvez m'aider merci infiniment!!!
Cordialement, Cédric
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
56
Date d'inscription
vendredi 30 mars 2001
Dernière intervention
7 septembre 2011
- 30 mars 2005 à 15:51
3
Merci
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 !!

Merci Diegoch 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Meilleure réponse
Messages postés
32
Date d'inscription
lundi 6 novembre 2000
Dernière intervention
29 avril 2005
- 31 mars 2005 à 09:08
3
Merci
Je te remercie, mais je me suis débroullé autrement, en faite plutot que d'inscrire directement un commentaire j'ai créé 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à" & chr(10) & " "
ensuite une fois la boucle fini et donc les phrases des commentaires ajouté les unes au autres sur la feuil2
il me suffit de faire une comparaison ( je vérifie si la valeur est pas nul pour é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 à votre guise.
J'espére que ça pourra vous servir
Merci encore
Cordialement Cédric

Merci sobeit1 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Messages postés
32
Date d'inscription
lundi 6 novembre 2000
Dernière intervention
29 avril 2005
- 22 mars 2005 à 09:37
0
Merci
Je me suis rendu compte en faisant mes recherches que les commentaires peuvent être considéré 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é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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.