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

alaincool Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
WhiteFang Messages postés 2063 Date d'inscription Statut Membre Dernière intervention - 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...

Afficher la suite

2 réponses

Réponse 1 / 2

alaincool

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

Réponse 2 / 2

WhiteFang Messages postés 2063 Date d'inscription Statut Membre Dernière intervention 204

;-))

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

Votre réponse