copier un commentaire vers une cellule

philsogood · 13 Décembre 2016

Bonjour,
Je souhaiterai copier des commentaires que l'on peut trouver dans un fichier XLS vers une cellule qui serait sur la même ligne que la ligne où a été mis le commentaire.
Je n'ai pour ce faire aucune connaissance de VBA :/
Si vous avez des pistes je suis preneur
Phil

vgendron · 13 Décembre 2016

Hello

Sans fichier exemple de ta part.. on ne pourra pas te garantir le résultat
ci dessous une fonction que j'ai récemment faite pour le meme besoin
il faudra donc adapter à ton fichier

VB:

Sub CommentToCell()
'macro pour récuperer le commentaire en colonne C pour le mettre en colonne D
nblignes = Range("A" & Rows.Count).End(xlUp).Row 'compte le nombre de lignes à traiter
For Each ele In Range("C4:C" & nblignes) 'pour chaque cellule de la zone C4:C nbligne
    On Error Resume Next
    ele.Offset(0, 1) = ele.Comment.Text 'on copie le commentaire en colonne D
    'ele.ClearComments
Next ele
End Sub

copier un commentaire vers une cellule

philsogood

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Discussions similaires