Garder Format de cellule dans un Commentaire

Bonjour,

J'ai un bout de code qui me permet de mettre en commentaire le contenue de la cellule.

Je souhaiterais savoir comment faire pour que le commentaire garde le format de la cellule car certains mots sont en gras dans cette derniere.

Mon code fonctionne mais les mots en gras n'y sont plus dans les commentaires .. .

Voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

  If Target.Column = 21 And Target.Count = 1 Then
    If Target.Comment Is Nothing Then Target.AddComment
   If Target.Value = "" Then GoTo theend
    Target.Comment.Text Text:=Target.Value
    Target.Comment.Visible = True
    Target.Comment.Shape.Select
    Selection.AutoSize = True
    Target.Comment.Visible = False
    Target.Comment.Shape.OLEFormat.Object.Font.Size = 16

  End If
theend:
  Application.EnableEvents = True
  End sub

Merci de votre aide.

Nico

Bonjour,

  Target.Comment.Shape.TextFrame.Characters.Font.Size = 16

Bonjour merci pour ton cade mais il met tout le texte en gras dans le commentaire alors que je veux juste les parties deja en gras dans la cellule ...

Si tu veux n'en ajuster qu'une partie, alors il faut paramétrer la propriété Characters avec la position de départ du texte et sa longueur .

Target.Comment.Shape.TextFrame.Characters(position départ,longueur).Font.Size = 16

j'ai tester cette solution (qui fonctionne très bien) MAIS le problème de characters c'est sa limitation a 255 caractères ... or, dans mes cellules j'ai parfois bien plus que ca

Du coup je sais plus comment envisager le truc