Coller les valeurs textbox d'un userform dans une même cellule

Bonjour à la communauté,

Actuellement je suis en train de faire un petit fichier qui avance doucement et aujourd'hui je rencontre un problème de taille.

Je souhaite:

1° Coller un texte d'un "textbox" provenant d'un "userform" dans une cellule définie => ça c'est ok je sais.

2° Je voudrais lorsque je réouvre le "userform" supprimer les données "textbox" écrite mais conserver mon collage de cellule précédemment fait de manière à rajouter des commentaires dans la MEME cellule et à la suite.

3° Fermer le userform automatiquement après la saisie de "ok" => ça c'est easy, OK.

Pourquoi ?

En gros l'userform représente un pavé de consigne de la semaine que je peux changer tout les jours, mais il est important d'avoir une traçabilité des events précèdent dans la même cellule.

Supprimer les données du textbox me supprime mon collage dans la cellule...

Private Sub CommandButton1_Click()

montest = Userform1.TextBox1.Value
Sheets("Feuil1").Range("F8").Value = montest

Userform1.Hide

End Sub

Merci aux experts qui vont prendre le temps de me renseigner.

Bonsoir,

teste ceci

Private Sub CommandButton1_Click()

montest = Userform1.TextBox1.Value
Sheets("Feuil1").Range("F8").Value = Sheets("Feuil1").Range("F8").Value & " // " & montest

Userform1.Hide

End Sub

Cordialement

Wouha quelle rapidité, impressionnant. En plus c'était tout simple

1° Du coup mes ajouts sont bien prit en compte à la suite de la cellule.

2°J'ai rajouter

TextBox1.Value = ""

pour vider la "textbox" automatiquement après utilisation (maintenant ça marche).

Cependant,

3° Ajouter les futurs textes à la ligne serait parfait or la tout va à la suite

.Value & " // " & montest

Je vais un peu réfléchir et fouiner le forum pour voir si je trouve un topic la dessus.

Merci bigdaddy154.

Re,

suffit juste de rajouter un

Chr(10)

à la place de

" // "

Cordialement

Ah c'est top

Je sais que c'est hors sujet mais saurait tu comment supprimer le chariot 10 pour juste la première ligne de la cellule ?

Parce que du coup le saut à la ligne commence avant mon premier texte.

Exemple:

"

texte

texte"

Encore merci de ton aide.

Bonjour,

comme ceci.

Private Sub CommandButton1_Click()

montest = Userform1.TextBox1.Value
if(Sheets("Feuil1").Range("F8").Value="") then
    Sheets("Feuil1").Range("F8").Value = montest
else
    Sheets("Feuil1").Range("F8").Value = Sheets("Feuil1").Range("F8").Value & Chr(10) & montest
end if

Userform1.Hide

End Sub

Cordialement.