Récupérer plusieurs lignes de commentaires

Bonjour le forum,

J'écris un commentaire en récupérant les infos d'un USF avec ce code :

With ActiveCell.AddComment
            .Text ComboBox1.Value & " : " & TextBox1.Value & "€" & Chr(10) & _
                    ComboBox2.Value & " : " & TextBox2.Value & "€"
            .Shape.TextFrame.AutoSize = True
            .Shape.OLEFormat.Object.Font.Size = 11
end with

J'ai ensuite besoin de récupérer ces 2 lignes de commentaire séparément (variables ou cellules peu importe), mais je ne sais pas comment faire, ne trouvant aucune astuce pour différencier les différentes lignes dans un commentaire.

C'est peux être à l'écriture du commentaire qu'il faut agir, si quelqu'un à une idée ?

Ci joint mon fichier nettoyé

Bonjour

Avec un fichier protégé par mot de passe

Sinon si tu veux récupérer les 2 lignes pourquoi ne pas faire

Sub test()
  With ActiveCell.AddComment
    .Text ComboBox1.Value & " : " & TextBox1.Value & "€" & Chr(10) & _
          ComboBox2.Value & " : " & TextBox2.Value & "€"
    .Shape.TextFrame.AutoSize = True
    .Shape.OLEFormat.Object.Font.Size = 11
  End With
  Range("A1") = ComboBox1.Value & " : " & TextBox1.Value & "€" & Chr(10) & _
                ComboBox2.Value & " : " & TextBox2.Value & "€"
End Sub

Bonjour Banzaï

milles excuses, j'ai effectivement oublié d'enlever la protection

C'est corrigé, j'ai remplacé le fichier dans le 1er post.

Pour répondre à ta question : il faut que je puisse récupérer les lignes de commentaires existants. Les infos ne sont pas dans des ComboBox au moment où je veux les récupérer.

Bonjour

La macro était presque faite

A tester

Sub commentairesbis()
Dim Tablo
  With Sheets("Facturation").Range("F3")
    If Not .Comment Is Nothing Then
      Tablo = Split(.Comment.Text, vbLf)
      Sheets("Feuil1").Range("A1").Resize(1, UBound(Tablo) + 1) = Tablo
    End If
  End With
End Sub

et bien merci, les tableaux sont un pan du VBA que je ne maitrise pas du tout.