Bonsoir Will, GoodPart
Comment les "Comments" sont pas sympa ?
Test ce code Will, tu tape un truc dans l'InputBox et tu verras :
Sub comment()
Dim LeText As String
LeText = InputBox("Tape un Text")
With ActiveCell
.ClearComments
.AddComment
.comment.Visible = False
.comment.Text Text:=LeText
With .comment.Shape
.TextFrame.AutoSize = True
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Fill.Transparency = 0.5
With .OLEFormat.Object
With .Font
.Name = "Arial"
.Size = 40
.ColorIndex = 6
.Bold = True
End With
End With
End With
End With
End Sub
Bon Week End à tous et toutes
@+Thierry