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

Fermé
JonhyBigoudi Messages postés 2 Date d'inscription jeudi 24 octobre 2019 Statut Membre Dernière intervention 25 octobre 2019 - 24 oct. 2019 à 13:33
JonhyBigoudi Messages postés 2 Date d'inscription jeudi 24 octobre 2019 Statut Membre Dernière intervention 25 octobre 2019 - 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.
A voir également:

1 réponse

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213
Modifié le 24 oct. 2019 à 13:51
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
JonhyBigoudi Messages postés 2 Date d'inscription jeudi 24 octobre 2019 Statut Membre Dernière intervention 25 octobre 2019
25 oct. 2019 à 09:08
Merci beaucoup Eric pour cette réponse très rapide.
0