Copier automatiquement un texte dans une note de cellule

Bonjour,

Je voudrais automatiser la copie d'un texte d'une zone de texte puis le coller dans une note d'une cellule. Et enfin le supprimer dans la zone de texte.

Merci à tous

Salut johnpeter et

johnpeter a écrit :

Bonjour,

Je voudrais automatiser la copie d'un texte d'une zone de texte puis le coller dans une note d'une cellule. Et enfin le supprimer dans la zone de texte.

à adapter et à tester

Sub CopierTextDansNote()
Sheets("Feuil1").Cells(4, 2).AddComment ' la céllule qui contient la note
Sheets("Feuil1").Cells(4, 2).Comment.Text Sheets("Feuil1").Shapes.Range(Array("Note 1")).TextFrame.Characters.Text
Sheets("Feuil1").Shapes.Range(Array("Note 1")).TextFrame.Characters.Text = ""
End Sub

bonne journée