Classe CommentThreaded (Excel VBA)

La classe CommentThreaded représente le commentaire lié à une cellule.

Les procédures principales de la classe CommentThreaded sont AddReply et Delete

Set

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 : Replies, Worksheet.CommentsThreaded, CommentsThreaded.Item, Next, Previous, AddReply, 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

Méthodes

Les méthodes principales de la classe CommentThreaded sont

AddReply - Si le commentaire est un commentaire de niveau supérieur, il ajoute une réponse à sa collection de réponses.

Dim ctdAddReply As CommentThreaded
Set ctdAddReply = ActiveCell.AddCommentThreaded.AddReply()

Delete - Supprime le commentaire thread spécifié et toutes les réponses associées à ce commentaire (le cas échéant).

ActiveCell.AddCommentThreaded.Delete

Autre Méthodes

CommentsThreaded.Item - Cette méthode renvoie un seul objet d'une collection.

Next - Renvoie un objet CommentThreaded qui représente le prochain commentaire lié à un thread.

Previous - Renvoie un objet CommentThreaded qui représente le commentaire thread précédent.

Text - Définit le texte de commentaire lié.

Propriétés

CommentsThreaded.Count Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveCell.AddCommentThreaded.Replies.Count

CommentsThreaded.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.AddCommentThreaded.Replies.Parent

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

Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.AddCommentThreaded.Parent

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