Bonjour,
J'affiche un commentaire de cellule avec :
Cel.NoteText intitul=E9.Caption ........
Comment faire pour appliquer =E0 ce commentaire, un fond=20
particulier ainsi qu'une =E9criture particuli=E8re
Merci de me r=E9pondre.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Direct83,
Voici les différentes propriétés qui peuvent être défini pour le formatage des commentaires . Évidemment, retiens ceux qui sont appropriées à ton application.
'------------------------------------ Sub FormaterUnCommentaire()
Dim C As Comment
Set C = Worksheets("feuil2").Range("A1").Comment With C .Text "MonTexte" With .Shape .Fill.Visible = msoTrue .Fill.ForeColor.SchemeColor = 38 .Fill.BackColor.SchemeColor = 22 .Fill.Transparency = 0# .Fill.TwoColorGradient msoGradientHorizontal, 2 With .OLEFormat.Object .Font.Name = "Arial" .Font.Size = 14 .Font.Bold = True .Font.ColorIndex = 2 'Autosize ou hauteur et largeur '.Height = 20.5 '.Width = 70.5 '.AutoSize = True End With End With End With Set C = Nothing End Sub '------------------------------------
Salutations!
"direct83" a écrit dans le message de news:006e01c34641$d72a2d70$ Bonjour, J'affiche un commentaire de cellule avec : Cel.NoteText intitulé.Caption ........ Comment faire pour appliquer à ce commentaire, un fond particulier ainsi qu'une écriture particulière Merci de me répondre.
Bonjour Direct83,
Voici les différentes propriétés qui peuvent être défini pour le formatage des commentaires .
Évidemment, retiens ceux qui sont appropriées à ton application.
'------------------------------------
Sub FormaterUnCommentaire()
Dim C As Comment
Set C = Worksheets("feuil2").Range("A1").Comment
With C
.Text "MonTexte"
With .Shape
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 38
.Fill.BackColor.SchemeColor = 22
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientHorizontal, 2
With .OLEFormat.Object
.Font.Name = "Arial"
.Font.Size = 14
.Font.Bold = True
.Font.ColorIndex = 2
'Autosize ou hauteur et largeur
'.Height = 20.5
'.Width = 70.5
'.AutoSize = True
End With
End With
End With
Set C = Nothing
End Sub
'------------------------------------
Salutations!
"direct83" <direct83@aol.com> a écrit dans le message de news:006e01c34641$d72a2d70$a501280a@phx.gbl...
Bonjour,
J'affiche un commentaire de cellule avec :
Cel.NoteText intitulé.Caption ........
Comment faire pour appliquer à ce commentaire, un fond
particulier ainsi qu'une écriture particulière
Merci de me répondre.
Voici les différentes propriétés qui peuvent être défini pour le formatage des commentaires . Évidemment, retiens ceux qui sont appropriées à ton application.
'------------------------------------ Sub FormaterUnCommentaire()
Dim C As Comment
Set C = Worksheets("feuil2").Range("A1").Comment With C .Text "MonTexte" With .Shape .Fill.Visible = msoTrue .Fill.ForeColor.SchemeColor = 38 .Fill.BackColor.SchemeColor = 22 .Fill.Transparency = 0# .Fill.TwoColorGradient msoGradientHorizontal, 2 With .OLEFormat.Object .Font.Name = "Arial" .Font.Size = 14 .Font.Bold = True .Font.ColorIndex = 2 'Autosize ou hauteur et largeur '.Height = 20.5 '.Width = 70.5 '.AutoSize = True End With End With End With Set C = Nothing End Sub '------------------------------------
Salutations!
"direct83" a écrit dans le message de news:006e01c34641$d72a2d70$ Bonjour, J'affiche un commentaire de cellule avec : Cel.NoteText intitulé.Caption ........ Comment faire pour appliquer à ce commentaire, un fond particulier ainsi qu'une écriture particulière Merci de me répondre.
