Comment.Next, méthode (Excel)

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

Syntaxe

. Next

expression Expression qui renvoie un objet Comment.

Valeur renvoyée

Commentaire

Remarques

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.

Exemple

Cet exemple montre comment obtenir, à chaque fois, le commentaire suivant à l'aide de la méthode Next.

Notes

Testez cet exemple dans un nouveau workbook sans commentaires existants. Pour effacer tous les commentaires d’un workbook, Selection.SpecialCells(xlCellTypeComments).delete utilisez-le dans le volet Immédiat.

'Sets up the comments 
For xNum = 1 To 10 
 Range("A" & xNum).AddComment 
 Range("A" & xNum).Comment.Text Text:="Comment " & xNum 
Next 
 
MsgBox "Comments created... A1:A10" 
 
'Deletes every second comment in the A1:A10 range 
For yNum = 1 To 10 Step 2 
 Range("A" & yNum).Comment.Next.Shape.Select True 
 Selection.Delete 
Next 
 
MsgBox "Deleted every second comment"

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.