Transposer la couleur d'un commentaire dans un TextBox

Bonjour à tous,

Au même titre que l'on peut récupérer la couleur de fond ou de police d'une cellule, peut on récupérer la couleur de fond d'un commentaire ?

Cela me servira à transposer la couleur du commentaire dans un TextBox. Voici le code que j'utilise actuellement :

Set Commentaire = Sheets("Suivi FI").Cells(ligne, 12).Comment
        If Not Commentaire Is Nothing Then
        Label16.Visible = True
        TextBox1.Visible = True
        TextBox1.Value = Commentaire.Text
        TextBox1.BackColor = RGB(255, 0, 0) 'au lieu de mettre le fond du TextBox en rouge, j'aimerais récupérer la couleur du commentaire si possible
        Else
        Label16.Visible = False
        TextBox1.Visible = False
        End If

Code aimablement concocté par Frangy.

Merci d'avance et bonne journée.

Bonjour,

Tu peux essayer comme cela

    Set Commentaire = Sheets("Suivi FI").Cells(Ligne, 12).Comment
    If Not Commentaire Is Nothing Then
        Label16.Visible = True
        TextBox1.Visible = True
        TextBox1.Value = Commentaire.Text
        TextBox1.BackColor = Commentaire.Shape.Fill.ForeColor.RGB
    Else
        Label16.Visible = False
        TextBox1.Visible = False
    End If

A+

Bonjour Frangy,

Testé et adopté : merci encore et bonne journée.

@+.