Récupérer le contenu d'un commentaire dans une cellule

Commentaire

JonhyBigoudi Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
JonhyBigoudi Messages postés 2 Date d'inscription Statut Membre Dernière intervention - 25 oct. 2019 à 09:08

Bonjour, je souhaite récupérer le contenu d'un commentaire de cellule XL dans une cellule. Attention, il ne s'agit pas de recopier le commentaire sous forme d'un nouveau commentaire mais bien de vider le contenu d'un commentaire dans une cellule.

Afficher la suite

1 réponse

Réponse 1 / 1
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281
Bonjour,

sans précision de ta part je fais la plage sélectionnée :
```
Sub comment()
    Dim pl As Range, c As Range
    On Error GoTo fin
    Set pl = Selection.SpecialCells(xlCellTypeComments)
    For Each c In pl
        c.Offset(, 1) = c.comment.Text ' copie commentaire
        c.comment.Delete ' supp commentaire
    Next c
fin:
End Sub
```
je colle dans la colonne à droite, en insérer une si besoin ou adapter le code.
eric
2
1. JonhyBigoudi Messages postés 2 Date d'inscription Statut Membre Dernière intervention
  
  Merci beaucoup Eric pour cette réponse très rapide.
  
  0

Récupérer le contenu d'un commentaire dans une cellule

1 réponse

Discussions similaires

Newsletters