Commentaire de cellule

[Dimitri]

Bonjour,

Un petit problème dont quelqu'un connait peut etre la solution.

En effet, j'insère un commentaire à certaine cellule à l'aide de code VBA.
Par contre, le commentaire inséré est dans une police trop petite.
Quelqu'un peut il m'indiquer comment modifier la police d'un commentaire ?

Voici les instruction dont je me sert :
Range (cells(i,j),cells(i,j)).comments.clearcomment
Range (cells(i,j),cells(i,j)).addcomment "Ceci est un exemple"


D'autre part, la propiété AddComment n'est utilisable qu'avec l'objet RAnge,
Peut on convertir l'adresse d'une cellule de type "cells(1,1)" en "A1" par exemple ?


Merci de votre aide,
Dimitri

 

[michel]

bonjour Dimitri

l'exemple ci dessous créée un commentaire dans la cellule A1 et modifie la taille du texte

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

Range("A1").Comment.Shape.OLEFormat.Object.Font.Size = 14 ' taille texte
End Sub



bon apres midi
michel

 

[vincent]

bonjour le fil

pour ta deuxieme question dimitri je suis sous excel 97 et

cells(1,1).addcomment "ça fonctionne"

c'est le cas de le dire lol!! ça fonctionne.

@+Vincent

 

[CHti160]

Salut "Dimitri","michel","vincent"
re le"FORUM"
pour ta deuxieme question
Peut on convertir l'adresse d'une cellule de type "cells(1,1)" en "A1" par exemple
recopies le code suivant et tu verras que OUI tu as les deux adresses dans le texte (Qui n'est pas de moi!!!!)
Sub CommentaireSpecial()
'Mpfe, AV & FS
Dim Line1$, Line2$, Line3$, Line4$, Line5$, Txt$

On Error Resume Next
Selection.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
WithWorksheets("Feuil1").Range("A1").AddComment(Txt).Shape.OLEFormat.Object.Font 'Cells(5, 4)
.Name = "Arial" 'règle police et taille
.Size = 10
End With
With Cells(5, 4).Comment.Shape
.AutoShapeType = msoShape32pointStar
.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
A+++
Jean Marie