ecrire dans un commentaire depuis une textbox

[pascal21]

bonjour le forum
j'aimerais savoir si il est possible de créer un commentaire en écrivant dans une textbox depuis un usf
je vous mets le bout de code qui sélectionne la cellulee désirée (intersection)
et qui donne le caption du label4

On Error Resume Next
    Col = [3:3].Find(Me.listBox1.Value).Column
    lig = [B:B].Find(CDate(Me.listbox2)).Row

Cells(lig, Col) = Me.Label4.Caption

c'a doit être un truc du genre
Cells(lig, Col).comments.value = textbox1.value

 

[JNP]

Re : ecrire dans un commentaire depuis une textbox

Salut Pascal 🙂,
En remplaçant "Test" par ton label et Range("A1") par ta cellule de destination

With Range("A1")
If .Comment Is Nothing Then
    .AddComment
    .Comment.Visible = False
    .Comment.Text Text:="Test"
Else
    Réponse = MsgBox("La cellule contient déjà le commentaire :" & vbCrLf _
        & .Comment.Text & vbCrLf & "Voulez-vous le remplacer ?", _
        vbOKCancel + vbCritical, "Attention !")
    If Réponse = vbOK Then .Comment.Text Text:="Test"
End If
End With

Bonne journée 😎

 

[pascal21]

Re : ecrire dans un commentaire depuis une textbox

bonjour JPN
je viens de finir et ça fonctionne
j'ai trouvé la réponse en cherchant dans le forum et tu avais déja donné une reponse identique que j'ai adapté
merci 2 fois pour ton aide