Format commentaire

[Didou]

Bonsoir à tous,
J'essaye dans mon classeur, depuis un formulaire, d'ajouter un commentaire non visible. Jusque là pas de problème sauf pour le format :
Taille et police. Ces commentaires sont trop petit par rapport au reste de la feuille. Avec l'enregistreur de macro automatique je ne suis arrivé à rien.
Je travaille sous excel 2002. Actuellement j'ai ceci:

If Boxremarque.Value <> "" Then
Range("C" & Fin).AddComment
Range("C" & Fin).Comment.Visible = False
Range("C" & Fin).Comment.Text Text:="Compte:" & Chr(10) & Boxremarque.Value & Chr(10) & ""
End If

Par avance merci à tous pour toutes vos suggestions.

A+ Didier

 

[michel]

bonsoir Didou

ci joint un exemple d'insertion de commentaire dans la cellule A1 et de quelques possibilités offertes pour les formats


Sub FormatCommentaire()
Range("A1").AddComment
Range("A1").Comment.Text Text:="Le Forum : " & Chr(10) & "XLD" & Chr(10) & ""

With Range("A1").Comment.Shape
.Width = 100 ' dimensions commentaire
.Height = 120
.OLEFormat.Object.Font.Size = 14 ' taille texte
.OLEFormat.Object.Interior.ColorIndex = 3 ' couleur de fond
.TextFrame.Characters.Font.ColorIndex = 4 'couleur texte
.TextFrame.Characters.Font.Bold = True ' ecriture gras
.OLEFormat.Object.Font.Name = "Bangle" ' type de police
End With
End Sub



bonne soirée
Michel

 

[Didou]

Bonsoir et merci Michel pour cette info . Cela fontionne parfaitement pour ma petite application.
A+ didou