Textbox et affichage incorrect

  • Initiateur de la discussion Initiateur de la discussion cytouf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

cytouf

Guest
Bonjour à vous, et félicitation pour votre super boulot !

J'ai une question à vous poser.
Je réalise actuellement un formulaire qui sera utilisé dans mon entreprise. Ce formulaire vise à completer une feuille de saisie déjà imprimée.

J'ai créé un Userform avec plusieurs Textbox dedans. Certains de ces Textbox sont multilignes, d'autre non.
Les Textbox sur 1 ligne ne posent pas de problème. Le probleme provient des Textbox multilignes : dans mon Userform, je remplis une adresse de la manière suivante :

Cytouf Lalali
4 rue d'en face
95095 Paris 95

Chaque Textbox est ensuite envoyé dans sa case excel respective, mais des caractères étranges sont ajoutés après chaque fin de phrase, là ou je faisais un retour à la ligne dans ma textbox. Apparement, ce n'est pas un problème du code car en faisant un MsgBox qui renvois l'adresse, il n'y a pas ce caractère bizarre à la fin de chaque ligne.

Quelqu'un pourrait-t'il maider, me donner un moyen de faire disparaître ce caractère a la fin de chaque ligne ? (ce caractère est un carré avec un point d'interrogation à l'interieur).

Merci beaucoup !
 
Re : Textbox et affichage incorrect

Bonsoir cytouf et Bienvenue sur le forum,

Dans les propriétés de ta textbox, essais de mettre Multiline à True, et le format de ta cellule receptrice, dans : Format/Cellule, onglet Alignement tu coches Renvoyer à la ligne automatiquement.

Dés lors qu'il y aura un espace, si besoin la textbox fera le travail.

Tu nous dis.

Bonne soirée.

Jean-Pierre

Edit : Je viens de faire l'essai, cela fonctionne.
 
Dernière édition:
Re : Textbox et affichage incorrect

Bonsoir un bout de code à mettre dans ton usf:
Dim Texte As String
Texte = TextBox1
Texte = Application.WorksheetFunction.Substitute(Texte, vbCrLf, Chr(10))
Sheets("Nomdefeuille").Range("?") = Texte "A Appliquer suivant ton code
Ce code permet d'enlever les retour chariot du textboxmultiligne
Bonne soirée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
Réponses
40
Affichages
5 K
lalimace
L
V
Réponses
2
Affichages
2 K
VOILLOT
V
C
Réponses
2
Affichages
1 K
Cekankonvaou
C
H
Réponses
6
Affichages
4 K
Helios67
H
F
Réponses
2
Affichages
1 K
P
Réponses
2
Affichages
2 K
P
A
Réponses
0
Affichages
7 K
Alain Tremblay
A
Retour