[VBA Excel] garder la mise en forme dans une textbox [RESOLU]

Marsh Posté le 23-07-2009 à 11:17:09

Bonjour à tous,

Je vous présente mon problème.

J'ai 2 textbox.
- dans la 1ère je tape un texte
- dans la 2ème, s'affiche le même texte mais codé... (chaque lettre de l'alphabet est remplacée par un signe)

Le problème c'est que quand je saute des lignes dans la 1ère boite (grâce à l'option, "EnterKeyBehaviour" ), et que je code ce texte pour l'afficher dans la 2ème, toutes les phrases sont mises à la suite.

ex :
1ère textbox :
texte normal
texte normal
texte normal

j'obtiens :
texte codé texte codé texte codé

au lieu de
texte codé
texte codé
texte codé

J'aimerai donc garder la même mise en forme, c'est à dire garder les sauts de ligne.

Comment faire ?

Merci

Message édité par kumasan le 23-07-2009 à 16:35:51

Reply

Marsh Posté le 23-07-2009 à 11:17:09

Reply

Marsh Posté le 23-07-2009 à 12:43:50

Bonjour

Un peu de precision stp, ou sont ces TextBox ? VBA Excel ? VBA Word ? VB ? Access ? Dans une userform ?

Ensuite sans ton code pour illustrer ton souci, je dirais que tu n'as qu'à rajouter un chr(10) / chr(13)

Cordialement

---------------
Soyez malin, louez entre voisins !

Reply

Marsh Posté le 23-07-2009 à 13:49:57

Désolé pour le manque de précisions...

Alors j'utilise VBA Excel dans une useform.

Mon code dans l'Useform est :

Code :

Private Sub CommandButton2_Click()
Dim Phrase1 As String, Phrase2 As String
Dim Caract As String * 1
Dim i As Integer
Phrase1 = Range("A1" )
For i = 1 To Len(Phrase1)
Caract = Mid(Phrase1, i, 1)
Select Case LCase(Caract)
Case "a"
Phrase2 = Phrase2 + "/\"
....etc pour toutes les lettres
End Select
Next i
Range("A2" ) = Phrase2
End Sub

En fait, le texte qui doit apparaître dans le 2eme textbox est généré automatiquement. Je ne sais donc pas où mettre le chr(10)...

Reply

Marsh Posté le 23-07-2009 à 14:15:53

Et bien il faut tester si le caractere est un retour chariot, si oui remettre un retour chariot. Car, je pense, tu ne dois pas avoir de 'Case Else'
Donc il passe sur le caractere 'fin de ligne' et sur le caractere 'Retour Chariot' et ne les "remplace" pas. Donc forcement, tes mots sont a la suite les uns des autres.

Tu fais ton select case :

Code :

Case Chr(13)
Phrase2= Phrase2 + Chr(13)
Case Chr(10)
Phrase2= Phrase2 + Chr(10)

Ici, si c'est un fin de ligne ou retour chariot il remet la meme chose

ou :

Code :

Case Else
Phrase2= Phrases + LCase(Caract)

Ici, si c'est un caractere pas prevu dans tes Case, il met le caractere original, Retour chariot, Fin de ligne, espace, tiret etc. Tout ce que tu n'as pas prévu avec tes Case

Message édité par SuppotDeSaTante le 23-07-2009 à 14:19:59

---------------
Soyez malin, louez entre voisins !

Reply

Marsh Posté le 23-07-2009 à 14:21:08

Ca marche !! C'était si simple que ca... encore fallait-il y penser.

Merci beaucoup dje69r

Reply

Marsh Posté le 23-07-2009 à 14:27:47

:jap: