Commentaires dans Cellule

Le
Alf
Bonjour Í  tous,

Comment, lorsqu'on ouvre Excel, avoir une autre Police de commentaires de cellule autre que Tahoma,9,Gras ?

Merci pour votre aide et Meilleurs Vœux pour cette nouvelle année.
Alf
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
FxM
Le #26564121
Le 03/01/2021 Í  07:54, Alf a écrit :
Bonjour Í  tous,
Comment, lorsqu'on ouvre Excel, avoir une autre Police de commentaires de cellule autre que Tahoma,9,Gras ?
Merci pour votre aide et Meilleurs Vœux pour cette nouvelle année.
Alf


Hello,
Traditionnels meilleurs voeux Í  toutes et tous pour une année meilleure
que la précédente :o)
Il y a fort, fort longtemps sur MPFE, un murmure parlait de mise en
forme de commentaires. Peut-être t'en inspirer ?
'commentaire mis en forme avec quelques effets spéciaux
Sub CommentaireSpecial()
'mpfe, AV & FS
Dim Line1$, Line2$, Line3$, Line4$, Line5$, Txt$
Range("C3").ClearComments
Line1 = "Commentaire du " & Format(Date, "dd/mm/yyyy") & " :" & vbLf
Line2 = "Caractéristiques :" & vbLf
Line3 = "- titre en gras" & vbLf
Line4 = "- corps maigre" & vbLf
Line5 = "alignement : centré"
Txt = Line1 + Line2 + Line3 + Line4 + Line5
With Cells(3, 3).AddComment(Txt).Shape.OLEFormat.Object.Font
.Name = "Arial" 'règle police et taille
.Size = 10
End With
With Cells(3, 3).Comment.Shape
.AutoShapeType = msoShapeExplosion1
.TextFrame.AutoSize = True 'ajuste taille auto
.OLEFormat.Object.Interior.ColorIndex = 24 'motif
.Line.ForeColor.SchemeColor = 10 'couleur bordure
.Line.Weight = 3# ''style bordure double
.Line.Style = msoLineThinThin 'épaisseur bordure
With .TextFrame
.Characters(1, Len(Line1)).Font.Bold = True
.HorizontalAlignment = xlHAlignCenter
Txt = Line1 + Line2 + Line3 + Line4
.Characters(Len(Txt) + 1, Len(Line5)).Font.Bold = True
End With
End With
End Sub
@+
FxM
Poster une réponse
Anonyme