Re: Fenetre de texte
Option Private Module
Sub CommentaireDivx()
Dim Texte As String
Dim DObj As New DataObject
DObj.GetFromClipboard
Texte = DObj.GetText
Texte = Application.WorksheetFunction.Clean(Texte)
Set cmt = ActiveCell.AddComment
With cmt.Shape
.Height = 226.5
.Width = 156
cmt.Text Text:=Texte
End With
End Sub
voici donc ... donc cela a bien fonctionner pour les petit carré mais cela a supprimer les Carriege return .... embetant, une autre idée ou modifictation?
merci d'avance
|