Tester si une cellule contient un commentaire

Bonsoir,

Peut-on tester si une cellule contient un commentaire et retourner ce dernier dans un TextBox ?

Du genre :

If Sheets("Base gestion MDR").Cells(Ligne, 14) contient un commentaire Then
on récupère le contenu du commentaire dans TextBox1
Else
on laisse le textBox1 vide ou encore mieux on le masque
End If

Merci et bonne soirée.

Bonsoir,

Sub test()
Dim Ligne As Long
Dim Commentaire As Comment
    Ligne = 1
    Set Commentaire = Sheets("Base gestion MDR").Cells(Ligne, 14).Comment
    If Not Commentaire Is Nothing Then 'test s'il y a un commentaire dans la cellule
        'on récupère le contenu du commentaire dans TextBox1
        TextBox1.Visible = True
        TextBox1.Value = Commentaire.Text
    Else
        'sinon, on masque le textBox1
        TextBox1.Visible = False
    End If
End Sub

A+

Bonjour Frangy,

Merci pour ta réponse que je vais tester avec plaisir. Je te tiens au courant.

Bonne journée.

Re,

Comme promis, je viens de tenir au courant : c'est exactement ce que je désirais.

Encore merci et bon week-end.