Extraire CommentThreaded dans une cellule

Question

Bonjour,

Je souhaite extraire un commentaire dans une cellule. Attention, je ne souhaite pas extraire une note. Il s'agit de commentaire.

J'ai essayé avec une macro mais cela ne me retourne rien.

Je vous remercie.

Function<br><br>getComment(xCell ``As<br><br>Range) ``As<br><br>String<br><br><br>'UpdatebyExtendoffice20180330<br><br><br>On<br><br>Error <br>Resume <br>Next<br><br><br>getComment<br> = xCell.CommentThreaded.Text<br><br><br>End<br><br>Function<br><br><br><br>

Answer 1

Je n'ai pas la bonne version pour tester. J'ai trouvé, sur internet, ce bout de code qui boucle sur tous les  CommentsThreaded d'une feuille. Est-ce que tu peux l'adapter ?

  Set AllCommentsThreaded = ActiveSheet.CommentsThreaded

  For Each OneCommentThreaded In AllCommentsThreaded

    With OneCommentThreaded

      Debug.Print .Author.Name, .Date, .Text

      For Each OneReply In .Replies

        With OneReply

          Debug.Print .Author.Name, .Date, OneReply.Text

        End With

      Next OneReply

    End With

  Next OneCommentThreaded

Daniel

Answer 2

Merci!

Je vais essayer et te tiens au courant :-)

Answer 3

Bonjour Daniel,

Merci pour ta réponse mais cela ne me renvoie aucune donnée pour un commentaire du type Thread. Cela fonctionne bien pour une note (type comment).

Answer 4

Bonjour,

Function getComment(xCell As Range) As String

  On Error Resume Next

  getComment = xCell.Comment.Text

End Function

Cordialement.

Daniel