Celeda

Bonjour,


Sur l'excellent site de Steph on the web,
http://xlbysteph.free.fr/aideinformatique/mainexcel.html

il y a plusieurs codes pour les commentaires,

j'ai essayé celui-ci qui ajuste la taille des commentaires en fonction de retour ou pas de chariot,

peux-tu tester et voir comment cela se comporte chez toi, svp,

Sub Comments_AutoSize()
Dim MyComments As Comment
Dim lArea As Long
For Each MyComments In ActiveSheet.Comments
With MyComments
.Shape.TextFrame.AutoSize = True
If .Shape.Width > 300 Then
lArea = .Shape.Width * .Shape.Height
.Shape.Width = 200
' An adjustment factor of 1.1 seems to work ok.
.Shape.Height = (lArea / 200) * 1.1
End If
End With
Next ' comment
End Sub


Celeda