TalbonJourdal Fred
XLDnaute Nouveau
Bonjour à tous !
J'ai un petit souci à propos d'un commentaire que je créé par macro dans une cellule (F5) sur une feuille Excel.
J'arrive bien à changer le texte (qui se trouve dans la cellule L4 du même onglet), la couleur de fond, la taille et le style de la police, mais je ne parviens pas à changer la couleur et le style du trait qui encadre le commentaire (qui apparaît toujours en noir) car je ne connais pas l'instruction adéquat. J'aimerais avoir un cadre orange avec un trait fin (0,25 pt), un peu comme on pourrait le faire en passant par la boite de dialogue "Format de Commentaire".
Je mets si dessous le petit bout de code que j'ai écris :
Voilà, un grand merci par avance à ceux qui peuvent m'aider.
J'ai un petit souci à propos d'un commentaire que je créé par macro dans une cellule (F5) sur une feuille Excel.
J'arrive bien à changer le texte (qui se trouve dans la cellule L4 du même onglet), la couleur de fond, la taille et le style de la police, mais je ne parviens pas à changer la couleur et le style du trait qui encadre le commentaire (qui apparaît toujours en noir) car je ne connais pas l'instruction adéquat. J'aimerais avoir un cadre orange avec un trait fin (0,25 pt), un peu comme on pourrait le faire en passant par la boite de dialogue "Format de Commentaire".
Je mets si dessous le petit bout de code que j'ai écris :
Code:
Sub AjoutCommentaire()
Dim j, Comm1 As String
j = Range("L4").Value
Comm1 = "Valeur de la cellule = " & j
Range("F5").AddComment
Range("F5").Comment.Text Text:=Comm1
With Range("F5").Comment.Shape.OLEFormat.Object
.Font.Size = 8
.Font.Name = "Arial Narrow"
.Interior.ColorIndex = 22
End With
Range("F5").Comment.Shape.TextFrame.Characters.Font.Italic = True
Range("F5").Comment.Shape.TextFrame.AutoSize = True
End Sub
Voilà, un grand merci par avance à ceux qui peuvent m'aider.