forcer le format d'un textbox en italique

[natorp]

Bonsoir à tous et toutes

J'aimerais connaître la syntaxe pour forcer le format d'un textbox en italique depuis un userform. Ce textbox devant être insérer dans un commentaire depuis cette ligne :
ActiveCell.Offset(Format(MonthView1.Value, "dd"), i - 16).Comment.Text Text:=Label1.Caption & " " & TextBox3.Value

Merci de votre attention et votre aide
cordialement
Gérard

 

[natorp]

Re : forcer le format d'un textbox en italique

Bjr le fil,
je remercie toutes les personnes venues voir ma demande, je vais essayer d'être plus clair.
depuis un userform je remplis le commentaire d'une cellule à l'aide d'un textbox. Or j'ai besoin de récupérer une partie de ce commentaire pour le mettre dans une autre cellule, j'ai trouvé sur le site de Jacques Boisgontier cette fonction :
Function RecupItalique(c)
Application.Volatile
temp = ""
For i = 1 To Len(c.Comment.Text)
If c.Comment.Shape.TextFrame.Characters(i, 1).Font.Italic Then
temp = temp & Mid(c.Comment.Text, i, 1)
End If
Next i
RecupItalique = temp
End Function

Avec ça je pourrais récupérer ce que je veux à condition que le format de mon textbox soit en italique....

J'essaye de faire un bout de fichier...
Merci de votre attention, Gérard

 

[natorp]

Re : forcer le format d'un textbox en italique

Un exemple en pièce-jointe...