Microsoft 365 Moulinette couper contenu cellule coller note

Sub AjouteCommentaire()
  Selection.ClearComments
  For Each c In Selection
    c.AddComment CStr(c.Offset(0, 1).Value)
    c.Comment.Shape.TextFrame.AutoSize = True
    c.Comment.Shape.OLEFormat.Object.Font.Size = 8
  Next c
End Sub

Sub AjouteCommentaire()
  Selection.ClearComments
  For Each c In Selection
    c.AddComment CStr(c.Value)
    c.Comment.Shape.TextFrame.AutoSize = True
    c.Comment.Shape.OLEFormat.Object.Font.Size = 8
    c.ClearContents
  Next c
End Sub

Sub Commentaires()
 For Each cel In Selection
    With cel
    If .Value <> "" Then
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Text Text:=.Value
        Else
            .Comment.Text Text:=.Comment.Text & Chr(10) & .Value
        End If
    End If
    End With
 Next
 Selection.ClearContents
End Sub