Caractere en gras dans un commentaire

yves03 · 1 Mars 2009

Bonjour à tous,

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

Code:

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 · 1 Mars 2009

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 :

Code:

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 · 1 Mars 2009

Re : Caractere en gras dans un commentaire

Pierrot93 à dit:
bonjour Yves

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

Code:

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.
😉

Caractere en gras dans un commentaire

yves03

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

Discussions similaires

Caractere en gras dans un commentaire

yves03

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency