Caractere en gras dans un commentaire

[yves03]

Bonjour à tous,

J'utilise actuellement cette ligne de code pour remplir un commentaire.

Cells(x - 1, y + 0).AddComment.Text Text:=Sheets("AMJ").Label60.Caption & ":" & Chr(10) & Saisie.TextBox2.Text

Est il possible de mettre en gras uniquement la valeur que je recupere dans le Label60 et laisser en standard la valeur du Textbox2 ?

Merci d'avance de votre aide.

 

[Pierrot93]

Re : Caractere en gras dans un commentaire

bonjour Yves

regarde le code ci-dessous si il peut t'aider. A adapter noms des objets et adresses cellules :

Cells(1, 1).AddComment.Text Text:=Sheets(1).Label1.Caption & ":" & _
    Chr(10) & "autre texte"
Cells(1, 1).Comment.Shape.TextFrame.Characters(1, Len(Sheets(1).Label1.Caption)).Font.Bold = True

bonne journée
@+

 

[yves03]

Re : Caractere en gras dans un commentaire

bonjour Yves

regarde le code ci-dessous si il peut t'aider. A adapter noms des objets et adresses cellules :

Cells(1, 1).AddComment.Text Text:=Sheets(1).Label1.Caption & ":" & _
    Chr(10) & "autre texte"
Cells(1, 1).Comment.Shape.TextFrame.Characters(1, Len(Sheets(1).Label1.Caption)).Font.Bold = True

bonne journée
@+

Merci beaucoup Pierrot93, j'ai adapté le code a mon application et ça fonctionne tres bien.
😉