OVH Cloud OVH Cloud

conversion d'un caractère Ctrl+Entrée en Chr(10)

3 réponses
Avatar
tomtom
Bonjour messieurs dames,

Je vous expose brièvement le problème.
Je récupère la valeur d'une TextBox dans laquelle l'utilisateur est amené
rentrer du texte avec des Ctrl+Entrée (retour charriot).
Quand je copie ensuite le contenu de cette TextBox dans une cellule de ma
feuille excel, les retours charriot sont bien pris en compte mais il y a un
petit carré très laid à chaque fin de ligne du surement à la mauvaise
conversion de Ctrl+Entrée en retour charriot classique.
Si vous pouviez m'aider, ça serait super sympa,

Merci, bisous

3 réponses

Avatar
SilkRoad
bonjour

j'espere que cet exemple pourra t'aider

Range("A1") = Application.WorksheetFunction.Substitute(TextBox1, vbCrLf,
Chr(10))


cordialement



"tomtom" wrote:

Bonjour messieurs dames,

Je vous expose brièvement le problème.
Je récupère la valeur d'une TextBox dans laquelle l'utilisateur est amené
rentrer du texte avec des Ctrl+Entrée (retour charriot).
Quand je copie ensuite le contenu de cette TextBox dans une cellule de ma
feuille excel, les retours charriot sont bien pris en compte mais il y a un
petit carré très laid à chaque fin de ligne du surement à la mauvaise
conversion de Ctrl+Entrée en retour charriot classique.
Si vous pouviez m'aider, ça serait super sympa,

Merci, bisous


Avatar
tomtom
Merci, ça marche ;-)


bonjour

j'espere que cet exemple pourra t'aider

Range("A1") = Application.WorksheetFunction.Substitute(TextBox1, vbCrLf,
Chr(10))


cordialement



"tomtom" wrote:

Bonjour messieurs dames,

Je vous expose brièvement le problème.
Je récupère la valeur d'une TextBox dans laquelle l'utilisateur est amené
rentrer du texte avec des Ctrl+Entrée (retour charriot).
Quand je copie ensuite le contenu de cette TextBox dans une cellule de ma
feuille excel, les retours charriot sont bien pris en compte mais il y a un
petit carré très laid à chaque fin de ligne du surement à la mauvaise
conversion de Ctrl+Entrée en retour charriot classique.
Si vous pouviez m'aider, ça serait super sympa,

Merci, bisous




Avatar
Modeste
Bonsour®
tomtom wrote:
mais il y a un petit carré très laid à chaque fin de ligne du
surement à la mauvaise conversion de Ctrl+Entrée en retour charriot
classique.
Range("A1").WrapText = True

@+
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042