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

alaincool Messages postés 2 Statut Membre -  
WhiteFang Messages postés 2063 Statut Membre -
(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

  1. 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
    0
  2. WhiteFang Messages postés 2063 Statut Membre 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
    0