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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA Excel] garder la mise en forme dans une textbox [RESOLU]

kumasan

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

Publicité

SuppotDeSaTante

Aka dje69r

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 !

kumasan

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)...

SuppotDeSaTante

Aka dje69r

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 !

kumasan

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

Merci beaucoup dje69r

SuppotDeSaTante

Aka dje69r

:jap:

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

SuppotDeSaTante

Aka dje69r

Je voudrais pas faire mon chieur mais :

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
[JPA/Hibernate] Mapper des Map	session perdue après un window.location [pas encore résolu :( ]
[RESOLU] [VBS] copier uniquement les lignes filtrées sous Excel	Excel: boucle pour plusieurs commandbutton
problème de filtre vba macro Excel	Extraire un formaulaire dans un tableau sur Excel
[VBA] Erreur 1004 AutoFiltre method of Range class failed	Pattern Java \| Probleme ecriture dans fichier texte.
[VBA][Résolu] Completer une feuille type
Plus de sujets relatifs à : [VBA Excel] garder la mise en forme dans une textbox [RESOLU]

Page générée en 0.041 secondes