Partager via


Méthode Comment.Next (Excel)

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

Syntaxe

expression. Prochain

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.

Remarque

Testez cet exemple dans un nouveau classeur sans commentaires existants. Pour effacer tous les commentaires d’un classeur, utilisez Selection.SpecialCells(xlCellTypeComments).delete dans le volet Exécution.

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