format textbox

[egman]

Bonjour à tous,

J'ai un petit probleme de retour à la ligne dans des textbox, non pas que j'y arrive pas mais j'ai un petit carré qui apparait à l'impression.
Le probleme est que je ne sais pas trop où mettre le code dans le code suivant :

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 "

J'ai le probleme sur plusieurs textbox
D'avance merci

 

[MuscatMimi]

Re : format textbox

Salut egman et le forum

Si j'ai bien compris
il faut que aille dans les Pripriétés de ta TexBox et que tu mette "True" dans Multilignes

A plus

 

[PascalXLD]

Re : format textbox

Bonjour

prenons exemple que ce soit sur cette ligne là

ActiveCell.Offset(0, 10).Value = UserForm2.TextBox10.Value

tu ajoutes après

ActiveCell.Offset(0, 10).Replace what:=Chr(13), replacement:=""

 

[egman]

Re : format textbox

Merci Pascal,

Excuses moi pour le retard de la réponse.
En fait je savais pas trop où placer ce petit bout de code.
Manu

 

[PascalXLD]

Re : format textbox

RE

Comme indiqué tu la places sous la ligne qui récupère le caractère de retour à la ligne, donc la ligne qui récupère la valeur d'un textbox multiligne