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.