Commentaire / VBA / EXcel

Résolu
HELPHELP -  
Le Pingou Messages postés 12656 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
Le Pingou Messages postés 12656 Date d'inscription   Statut Contributeur Dernière intervention   1 466
 
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
0
HELPHELP
 
Merci pour cette reponse aussi rapide.

C'est OK. Il m'indique #valeur# quand il n'y a pas de commentaires.

Plus qu'a mettre une condition avec un if et hop, résolu...MERCI
0
Réponse 2 / 2
Le Pingou Messages postés 12656 Date d'inscription   Statut Contributeur Dernière intervention   1 466
 
Merci, de rien.
0