Commentaire / VBA / EXcel Résolu/Fermé

Question

Bonjour,

Je cherche a copier le contenu d'un commentaire dans une cellule.
L'idéal serait une formule de ce genre car j'en ai pleins dans mon classeur.

J'ai un truc du genre ou je ne dois pas etre tres loin ( actuellement ca copie le commentaire dans un commentaire )

Merci a l'ame ou aux ames charitables qui vont m'aider.

Function CopierAvecCommentaire(source As Range)
   Application.Volatile
     AdrAppelFn = Parent.Caller.Address()
        Range(AdrAppelFn).ClearComments
        Range(AdrAppelFn).AddComment
        'Range(AdrAppelFn).Comment.Text Text:=source.Comment.Text
        'Cells(AdrAppelFn) = source.Comment.Text
         Range(AdrAppelFn).Comment.Shape.Height = source.Comment.Shape.Height
        Range(AdrAppelFn).Comment.Shape.Width = source.Comment.Shape.Width
        Range(AdrAppelFn).Comment.Visible = source.Comment.Visible
    CopierAvecCommentaire = source.Value
 End Function


MERCI

PS : j'ai excel 2003

Le Pingou · Answer

Bonjour,
Essayez comme cela :
Function CopierAvecCommentaire(source As Range)
Application.Volatile
AdrAppelFn = Parent.Caller.Address()
Range(AdrAppelFn).ClearComments
Range(AdrAppelFn).AddComment
Range(AdrAppelFn).Comment.Text Text:=source.Comment.Text
Range(AdrAppelFn).Comment.Shape.Height = source.Comment.Shape.Height
Range(AdrAppelFn).Comment.Shape.Width = source.Comment.Shape.Width
Range(AdrAppelFn).Comment.Visible = source.Comment.Visible
CopierAvecCommentaire = source.Comment.Text
End Function

Le Pingou · Answer

Merci, de rien.