format textbox

[gh4]

Bonjour a tous
j'ecris dans la même textbox ceci donc sur trois lignes
.test1
.test2
.test3

lorsque que j'envoie ce que contient ma textbox dans une cellule
celle ci apparait comme cela
.test1 + un petit carré
.test2 + un petit carré
.test3 + un petit carré
je pense que le petit carré est le faite que j'ai été a la ligne dans ma textbox
Comment faire pour ne plus avoir ce petit carré qui apparait a la fin de chaque ligne dans ma cellule car je me sert après de cette cellule dans une presentation

merci de votre aide
Cordialement

 

[Catrice]

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 ?!

 

[gh4]

Re : format textbox

merci beaucoup
cordialement

 

[egman]

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