forcer le format d'un textbox en italique

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

Re : forcer le format d'un textbox en italique

Un exemple en pièce-jointe...