Commentaire de cellule

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

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

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