Classe CommentThreaded - le commentaire lié à une cellule (Excel VBA)
La classe CommentThreaded représente le commentaire lié à une cellule. Pour utiliser une variable de classe CommentThreaded, elle doit d'abord être instanciée, par exemple
Dim ctd as CommentThreaded
Set ctd = Dim strText As String: strText =
ActiveCell.AddCommentThreaded(Text:=strText)
For Each
Voici un exemple de traitement des éléments CommentThreaded dans une collection
Dim ctdReplie As CommentThreaded
For Each ctdReplie In Application.Replies
Next ctdReplie
AddReply
Si le commentaire est un commentaire de niveau supérieur, il ajoute une réponse à sa collection de réponses.
AddReply (Text)
Text: Texte de la réponse.
Dim ctdAddReply As CommentThreaded
Set ctdAddReply = ActiveCell.AddCommentThreaded.AddReply()
Author
Renvoie l’objet Author qui représente l’auteur de l’objet CommentThreaded spécifié. En lecture seule.
Dim athAuthor As Author
Set athAuthor = ActiveCell.AddCommentThreaded.Author
Date
Renvoie une date de type String qui représente la date et l’heure auxquelles un commentaire lié a été ajouté à l’heure locale. En lecture seule.
Dim dtToday As Date
dtToday = ActiveCell.AddCommentThreaded.Date
Delete
Supprime le commentaire thread spécifié et toutes les réponses associées à ce commentaire (le cas échéant).
ActiveCell.AddCommentThreaded.Delete
Next
Renvoie un objet CommentThreaded qui représente le prochain commentaire lié à un thread.
Si elle est appelée sur un objet CommentThreaded de niveau supérieur (parent), elle renvoie un objet CommentThreaded de niveau supérieur (parent) qui représente le commentaire suivant. L'utilisation de cette méthode sur le dernier commentaire d'une feuille renvoie la valeur Null et pas le premier commentaire de la feuille suivante. Si elle est appelée sur un objet CommentThreaded de réponse, elle renvoie un objet de réponse CommentThreaded qui représente la prochaine réponse d’un thread. Cette méthode fonctionne uniquement sur un seul thread. L’utilisation de cette méthode sur la dernière réponse d’un thread renvoie la valeur null (et non le prochain commentaire de niveau supérieur).
Dim ctdNext As CommentThreaded
Set ctdNext = ActiveCell.AddCommentThreaded.Next()
Previous
Renvoie un objet CommentThreaded qui représente le commentaire thread précédent.
Si elle est appelée sur un objet CommentThreaded de niveau supérieur (parent), elle renvoie un objet CommentThreaded de niveau supérieur (parent) qui représente le commentaire précédent. L'utilisation de cette méthode sur le premier commentaire d'une feuille renvoie la valeur Null et pas le dernier commentaire de la feuille précédente. Si elle est appelée sur un objet CommentThreaded de réponse, elle renvoie un objet de réponse CommentThreaded qui représente la réponse précédente d’un thread. Cette méthode fonctionne uniquement sur un seul thread. L’utilisation de cette méthode sur la première réponse d’un thread renvoie la valeur null (pas son commentaire de niveau supérieur).
Dim ctdPrevious As CommentThreaded
Set ctdPrevious = ActiveCell.AddCommentThreaded.Previous()
Replies
Si ce commentaire est un parent, renvoie une collection CommentsThreaded d’objets CommentThreaded qui sont les enfants/réponses du commentaire spécifié (le cas échéant). Les réponses sont triées par horodatage.
Dim ctdReplies As CommentsThreaded
Set ctdReplies = ActiveCell.AddCommentThreaded.Replies
Resolved
ActiveCell.AddCommentThreaded.Resolved = True
Text
Définit le texte de commentaire lié.
Dim strText As String
strText = ActiveCell.AddCommentThreaded.Text()
Arguments
Optional arguments
Les arguments suivants sont facultatifs
Text (String) - Texte à ajouter.
Start (Long) - Numéro du caractère où le texte ajouté sera placé. Si le paramètre overwrite a la valeur true ou est vide et que cet argument est omis, tout texte existant dans le commentaire lié est supprimé.
Overwrite (Boolean) - False pour insérer le texte. La valeur par défaut est true (le texte est remplacé).