Discussion :

[patricktoulon]

bonjour a tous

j'ai un peutit soucis avec ma macro pour envoyer des email

enfin elle fonctionne mais le text du message est recupéré dans un textbox dans un userform
ce textbox est multiligne
mais quand le message arrive le text est sur une seule ligne dans l'email

quelqu'un a une idée????



au plaisir

[pgz]

Bonsoir.

As-tu regardé quel est le caractère de retour à la ligne dans le texte de ton contrôle de formulaire?

Cordialement,

PGZ

[patricktoulon]

bonjour pgz
non je n'est pas regarder je ne sais meme pas de quoi tu parle
mais cependant si ca peut t 'eguiller le testbox c'est moi qui ecrit dessus je l'ai mis a multiligne=true pour pouvoir ecrire sur plusieur ligne j'utilise donc la touche "enter" pour passer a la ligne suivante
et je voudrais que le text sur l'email soit presenté de la meme maniere que le textbox

je pense qu'il faudrai que je boucle sur le text et que je le coupe a chaque ligne mais je ne me souviens plus comment on fait
EDIT:!!!

j'ai trouver ceci dans la faq

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub CommandButton1_Click()
Dim text As String
    Dim Tableau() As String
    Dim i As Integer
 
    'découpe la chaine en fonction des espaces " "
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(TextBox1, Chr(13))
 
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
 
  'chaque msgbox m'affichera la ligne
    MsgBox Tableau(i)
 
    Next i
 
 
 
End Sub

au plaisir

[pgz]

Re,

Dans ce cas tu devrais avoir des vbCrLf et cela devrait bien se passer. Moi, je vérifierais...

Cordialement,

PGZ

[patricktoulon]

et bien non!

ca ne marche pas

a body je met "toto" & vbCrLf & " la frite"
resultat
totolafrite et nom pas
toto
lafrite

une idée ???

[casefayere]

pas sur, mais essaies comme ça
"toto" & vbLf & vbLf & " la frite"
j'ai déjà vu ça quelque part

[casefayere]

Je ne sais pas si ça t'arrange mais pour ton texbox multiline, j'ai proposé récemment ce code que tu pourrais adapter mais je doute que ça puisse t'aider à résoudre ton problème de mail :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub TextBox1_AfterUpdate()' ou évènement exit, à voir
Dim es, x As Integer, ch As String, lg As Integer, y As Integer, result(), z As Integer
Dim lgcar As Integer
lg = 15 'suivant la longueur choisie pour tes lignes
es = Split(UserForm1.TextBox1, " ")
ReDim Preserve result(x)
y = UBound(es)
z = 1
ch = ""
result(x) = es(0)
ch = es(0)
lgcar = 0
For x = 0 To y
   ReDim Preserve result(x)
   While Len(result(x)) < lg + 1 And z <= UBound(es)
      ch = ch & " " & es(z)
      result(x) = ch
      z = z + 1
   Wend
   ch = ""
   If z > UBound(es) Then Exit For
Next x
TextBox1.Text = result(0)
For x = 1 To UBound(result)
   TextBox1 = TextBox1 & Chr(10) & result(x)
Next x
End Sub

dans cette discussion :
http://www.developpez.net/forums/d10...taire-textbox/