Sujet Précédent Sujet Suivant

[VBExc]Récup.leContenu d'1cell.ds1commentaire

Fermé
alaincool Messages postés 2 Date d'inscription lundi 23 décembre 2002 Statut Membre Dernière intervention 23 janvier 2003 - 23 déc. 2002 à 09:21
WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 - 26 déc. 2002 à 05:32
(comment récupérer le contenu d une cellule dans un commentaire)

avec la macro (voir plus bas), j ai une erreur au niveau de
Text:=range(adresse).value

la macro est :

sub commentaire()

adresse=inputbox("adresse de la cellule","commentaire")
active.cell.addcomment
active.cell.comment.text
text:=range(adresse).value <<<<< ca bugue à ce niveau là....

end sub


qui peut m aider?

merci


c est utile quand la cellule a une formule qui contient pléthore de conditions
ainsi en imprimant le commentaire je peux revoir mes formules
conditionnelles sur papier...

2 réponses

Réponse 1 / 2
alaincool
23 déc. 2002 à 14:54
j ai eu une réponse sur un autre forum, il faut enlever
le : entre text et =
par contre, la routine marche pas, aucune des données de la
cellule n'est copiée dans le commentaire.
par exemple, ma formule conditionnelle de la cellule =si(....Etc...
n'est pas du tout copiée dans le commentaire..
Où est le bogue?

Si je trouve la réponse sur un autre forum, je la redonnerais ici..

MERCI POUR VOTRE AIDE
0
Réponse 2 / 2
WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 204
26 déc. 2002 à 05:32
;-))

Sub SupprCommentaires()
On Error Resume Next
Dim L, C
For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For C = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Cells(L, C).Comment.Delete
Next
Next
End Sub

Sub AjoutCommentaire()
Dim Commentaire, Adresse
Commentaire = "Formule = " & Mid(Format(ActiveCell.Formula), 2)
Adresse = ActiveCell.Address(, , xlA1)
ActiveSheet.Range(Adresse).AddComment Commentaire
End Sub

;-)))

Wild and Free
0