Discussion :

[Carlu]

Dans un Userform quand j'active l'option "Multi-Lignes" dans la cellule de destination il apparait des petites lignes verticales après chaque retour et lorsqu'on imprime on voit des petits carré, c'est très laid visuellement.

adress◘
ville◘
Pays◘

Ça ressemble un peu à cela lorsqu'on imprime. J'ai Excel 2002.

Est-ce possible éliminer ces carrés ?

Merci

[fring]

Bonjour,

Oui c'est possible de les éliminer.
Lorsque par exemple dans une TextBox tu écris sur plusieurs lignes, tu passes à la ligne en faisant Shift+Enter ce qui se traduit par les codes Ascii Chr(13)+Chr(10) et c'est cette combinaison de code Ascii qui te donne de petit carré dans ta cellule.

Lors du transfert de la TextBox vers la cellule, il faut supprimer les Chr(13) pour ne plus garder que les Chr(10), voici un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
Range("A1") = Replace(Me.TextBox1.Value, Chr(13), "")
End Sub

[Carlu]

Merci beaucoup ça marche Nickel

[AlainTech]

On peut donc dire que c'est résolu?

Si oui, un petit clic sur , en bas de discussion?

Merci