Discussion :

[Kevin_18]

Bonjour,
Dans un textbox grace aux propriétés EnterKeyBehavior et MultiLine, on peut mettre plusieurs lignes de valeurs dans un TextBox, tout simplement en appuyant sur ENTREE (il suffit pour ca de mettre EnterKeyBehavior à 0 et MultiLine à True).

Seulement, si on veut écrire le contenu du TextBox dans une cellule on a un petit carré à la fin de chaque ligne.
Comment l'effacer?

[zazaraignée]

Il faut remplacer les chr(10) et chr(13) par un espace. En fait, avant de remplacer quoi que ce soit, je vérifierais si les deux caractères en question sont bien présents pour ne mettre qu'un espace, mais un tout de même.

[Kevin_18]

Ca marche très bien! Juste par curiosité, pourquoi chr(10) et chr(13) ?
Dans l'aide Microsoft VBA, ils correspondent à deux étoiles???

[zazaraignée]

Dans l'aide de VBA (tout comme dans l'aide de VB), tu as un tableau des codes de caractères ou il est noté que

• 10 correspond à un saut de linge
• 13 correspond à un retour de charriot
• 9 correspond à une tabulation...

[Kevin_18]

Et on ne peut pas mettre un retour à la ligne sans le petit carré?
Parce que si on enlève les chr(10) et chr(13), le retour à la ligne s'en va avec le petit carré!
Du coup ca n'a servi à rien de saisir les données dans le TextBox avec des ENTREE puisque tout revient sur la même ligne dans la cellule!

[SilkyRoad]

bonjour


tu peux utiliser

Code :

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

Range("A1") = Replace(TextBox1, vbCrLf, Chr(10))

http://silkyroad.developpez.com/VBA/...serForm/#LII-E


bonne soirée
michel