format textbox

Re : format textbox

Bonjour,

A priori, le passage à la ligne dans la boite de dialogue est un retour chariot Chr(13) (et a priori un retour à la ligne aussi).
Dans la cellule, il faut un retour à la ligne Chr(10).

Donc avant d'afficher dans la cellule, il faut remplacer le Chr(13) par Chr(10).

Range("A3") = Replace(UserForm1.TextBox1, Chr(13) & Chr(10), Chr(10))

Voir l'exemple dans le fichier joint.
Je ne sais pas pourquoi il y a un retour chariot et un passage à la ligne ?!

Re : format textbox

merci beaucoup
cordialement

Re : format textbox

Bonjour à tous j'ai effectivement le meme probleme mais je ne sais pas trop où mettre ton bout de code....
Voici mon bout de code
Private Sub CmdValider_Click()
Dim i As Byte

If UserForm2.TextBox1.Value = "" Then
MsgBox " Le champ DEMANDEUR est obligatoire . "
Exit Sub
Else
Sheets("Feuil1").Select

'créer

Range("a65536").End(xlUp).Offset(1, 0).Select
Range("A3") = Replace(UserForm1.TextBox1, Chr(13) & Chr(10), Chr(10))

ActiveCell.Value = UserForm2.TextBox1.Value
ActiveCell.Offset(0, 1).Value = UserForm2.TextBox11.Value
ActiveCell.Offset(0, 2).Value = "'" & UserForm2.TextBox2.Value
ActiveCell.Offset(0, 4).Value = UserForm2.TextBox4.Value
ActiveCell.Offset(0, 5).Value = "'" & UserForm2.TextBox5.Value
ActiveCell.Offset(0, 6).Value = UserForm2.TextBox6.Value
ActiveCell.Offset(0, 7).Value = "'" & UserForm2.TextBox7.Value
ActiveCell.Offset(0, 8).Value = UserForm2.TextBox8.Value
ActiveCell.Offset(0, 9).Value = UserForm2.TextBox9.Value
ActiveCell.Offset(0, 10).Value = UserForm2.TextBox10.Value

Sheets("Feuil1").Select

ActiveWorkbook.Save

MsgBox " La fiche est créée "

Où mettre le bout de code sachant que j'ai le probleme sur plusieurs TextBox ?
D'avance merci