Bonsoir Le Forum,
Oh Maximus : des macros deux pour une (cela ne nous rapjeunit pas mais bon) :
'ChrisV
Sub Ajust_Commentaires()
Dim Wks As Worksheet, Cmt As Comment
For Each Wks In Worksheets
For Each Cmt In Wks.Comments
Cmt.Shape.OLEFormat.Object.AutoSize = True
With Cmt.Shape.OLEFormat.Object.Font
.Name = "Tahoma"
.Size = 10 'change la police et la taille
End With
Cmt.Shape.OLEFormat.Object.ShapeRange.Fill _
.ForeColor.SchemeColor = 42 'index de laa couleur de fond
Next Cmt
Next Wks
End Sub
et une autre :
'STéphane 2000-11-02
Sub vv()
Set Cmt = Worksheets(1).Comments
For Each c In Cmt
'MsgBox c.Text 'afficher le texte du commentaire'
'MsgBox c.Parent.Address 'adresse de la cellule où est le commentaire
'Cells(c.Parent.Row, c.Parent.Column + 1).Value = c.Text
'
'les deux lignes suivantes permettront de positionner le commentaire en haut
'à gauche de la cellule à côté de la cellule parente
c.Shape.Left = c.Parent.Offset(0, 1).Left
c.Shape.Top = c.Parent.Offset(0, 1).Top
MsgBox c.Shape.TopLeftCell.Address
'permet de connaître dans quelle cellule est l'angle supérieur gauche de la
'boîte de commentaire
c.Shape.Placement = xlFreeFloating ' l'objet ne sera pas affecté par tout
'changement de la taille des cellules
c.Shape.TextFrame.AutoSize = True 'la taille s'ajuste automatiquement
'c.Shape.OLEFormat.Object.AutoSize = True
Next c
End Sub
Celeda