Changer le format d'un commentaire

  • Initiateur de la discussion Initiateur de la discussion Maximus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

Maximus

Guest
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
14
Affichages
535
Réponses
13
Affichages
490
Réponses
2
Affichages
101
Retour