Classe Comment - commentaire (Excel VBA)

Cet objet représente un commentaire de cellule. Pour utiliser une variable de classe Comment, elle doit d'abord être instanciée, par exemple


Dim cmm as Comment
Set cmm = ActiveCell.Comment

For Each

Voici un exemple de traitement des éléments Comment dans une collection


Dim cmm As Comment
For Each cmm In Application.Comments
	
Next cmm

Author

Renvoie l’auteur du commentaire. Type de données String en lecture seule.


Dim strAuthor As String
strAuthor = ActiveCell.Comment.Author

Delete

Cette méthode supprime l'objet.


ActiveCell.Comment.Delete

Cette méthode renvoie un objet Comment qui représente le commentaire suivant.

Cette méthode ne fonctionne que sur une seule feuille. 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.


Dim cmmNext As Comment
Set cmmNext = ActiveCell.Comment.Next()

Cette méthode renvoie un objet Comment qui représente le commentaire précédent.

Cette méthode ne fonctionne que sur une seule feuille. 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.


Dim cmmPrevious As Comment
Set cmmPrevious = ActiveCell.Comment.Previous()

Shape

Renvoie un objet Shape qui représente la forme attachée au commentaire spécifié.


Dim shpShape As Shape
Set shpShape = ActiveCell.Comment.Shape

Text

Cette méthode définit le texte du commentaire.

Text (Text, Start, Overwrite)


Dim strText As String
strText = ActiveCell.Comment.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 cet argument est omis, tout texte existant dans le commentaire est supprimé.

Overwrite (Boolean) - False pour insérer le texte. La valeur par défaut est true (le texte est remplacé).

Visible

Cette propriété renvoie ou définit une valeur de type Boolean qui détermine si l'objet est visible. Lecture-écriture.


ActiveCell.Comment.Visible = True