Discussion :

[Olivier vb]

voila je cherche à modifier les attributs d'un commentaire dans une cellule : ex couleur, gras, italique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Macro2()
    Selection.Font.ColorIndex = 3
    Selection.Font.Bold = True
 
    Selection.ClearComments 'efface le commentaire car si on écrit un commentaire sur une cellule ou il y a un commentaire : erreur
 
    ActiveCell.AddComment
    ActiveCell.Comment.Text Text:="Olivier:" & Chr(10) & "à vérifier"
End Sub

dans la dernière ligne de code je voudrai mettre "Olivier" en gras, en rouge...mais comment faire ?? est ce possible

merci

[Bazoom]

Rien de plus enfantin (je plaisante ;-))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim TB As TextBox
 
With ActiveCell
   If Not .Comment Is Nothing Then .Comment.Delete
   With .AddComment("Olivier" & vbLf & "à vérifier")
      Set TB = .Shape.OLEFormat.Object
      With TB.Characters(1, 7).Font
         .Bold = True
         .Color = vbRed
      End With
   End With
End With

Bonne chance. :-)

[Olivier vb]

merci
excatement ce que je voulais

par contre :
" Rien de plus enfantin " pour toi : pas pour moi