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)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe CommentThreaded : CommentsThreaded.Item, AddReply, Next, Previous, Range.AddCommentThreaded et Range.CommentThreaded.

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é.

Text (Text, Start, Overwrite)

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é).