Changer le format d'un commentaire

[Maximus]

Bonsoir à tous,

Exist t-il un moyen d'avoir toujours le même format des commentaire sur Excel (caracteres plus gros) sans avoir à les modifier à chaque fois.

Merci Beaucoup

 

[Celeda]

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

 

[Maximus]

merci beaucoup pour ta diligence celeda mais je la place ou la macro ?

Lorsque je l'insere dans un module normal, cela ne fonctionne pas .

 

[Celeda]

Bonsoir Le Forum,

Pour t'aider Maximus, le module est dans le fichier.

Celeda