Valeur textbox multiligne sur une seule ligne et inversement

[goldenboy]

Bonjour à tous,

Est ce qu'il est possible de passer la valeur d'un textbox multiligne en une seule ligne sur ma feuille Excel, et inversement?

La ligne de la feuille excel redevient multilign dans le textbox.

Par exemple :

Dans le textbox1, j'écris :

Ligne 1
Ligne 2

Ce qui me donerait en A1 :

Ligne 1 & quelque chose & Ligne 2

Actuellement ça donne en A1 :

Ligne 1
Ligne 2

Bien cordialement.

 

[Pierrot93]

Re : Valeur textbox multiligne sur une seule ligne et inversement

Bonjour,

regarde peut être ceci :

ActiveCell = Replace(TextBox1, vbCrLf, " ")

bonne journée
@+

 

[goldenboy]

Re : Valeur textbox multiligne sur une seule ligne et inversement

Bonjour Pierrot.

Merci pour ta réponse, ça fonctionne parfaitement.

à l'initialisation de l'usf :

 Tb_Comment_1.Value = Replace(Sheets("base").Range("AS" & Num_Ligne).Value, "//", vbCrLf)

à la validation de l'usf :

 Sheets("base").Range("AS" & DLigne).Value = Replace(Tb_Comment_1.Value, vbCrLf, "//")

Bon week-end.