incrémenter des commentaires par userform

[kinel]

Bonjour à tous

dans le fichier joint j'essaye d'incrémenter des commentaire dans la feuil3 de mon classeur par l'intermédiaire d'un userform
j'ai utilisé un code pour le bouton de validation à partir d'éléments trouvés dans d'autres post du forum mais ça bloque sur la ligne de transcription du contenu du textbox

merci de votre aide

Kinel

 

[Robert]

Re : incrémenter des commentaires par userform

Bonjour le Kinel, bonjour le forum,

Essaie comme ça :

Private Sub CommandButton1_Click()
Dim dest As Range

With Sheets("Feuil3")
    Set dest = IIf(.Range("A1").Value = "", .Range("A1"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With
dest.Value = Me.TextBox1.Text
Unload Me
MsgBox "Merci de votre contribution"
ThisWorkbook.Save
End Sub

 

[kllmoon]

Re : incrémenter des commentaires par userform

dsl ma réponse étais mauvaise 😎

 

[kinel]

Re : incrémenter des commentaires par userform

merci à Robert pour la solution
merci à kllmoon de s'être penché sur ma question

est il possible d'ajouter la date du commentaire automatiquement ?

 

[Robert]

Re : incrémenter des commentaires par userform

Bonjour le fil, bonjour le forum,

En colonne B par exemple ? :

Private Sub CommandButton1_Click()
Dim dest As Range
With Sheets("Feuil3")
    Set dest = IIf(.Range("A1").Value = "", .Range("A1"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With
dest.Value = Me.TextBox1.Text
dest.Offset(0, 1).Value = Date
Unload Me
MsgBox "Merci de votre contribution"
ThisWorkbook.Save
End Sub

 

[kinel]

Re : incrémenter des commentaires par userform

super

merci Robert