Version imprimable
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?
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.
Ca marche très bien! Juste par curiosité, pourquoi chr(10) et chr(13) ?
Dans l'aide Microsoft VBA, ils correspondent à deux étoiles???
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...
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!
bonjour
tu peux utiliser
Code:Range("A1") = Replace(TextBox1, vbCrLf, Chr(10))
http://silkyroad.developpez.com/VBA/...serForm/#LII-E
bonne soirée
michel
C'est qu'il faut activer le retour à la ligne de tes cellules. Enregistre une macro dans laquelle tu ouvres la boîte de dialogue Format > Cellule et dans l'onglet Alignement, tu coches Renvoyer à la ligne automatiquement. Après, tu pourra voir le code généré et ne garder que le bouto qui t'intéresse. Un indice : WrapText.