Discussion :

[Novice_vba]

Bonjour à tous,

Le problème qui m'occupe est peut-être facile à résoudre, je ne sais pas.
Je voulais envoyer un mail en passant par vba avec excel.
Pour cela, dans la ligne Body du corps du message, j'ai besoin d'écrire beaucoup de chose...

Or j'ai découvert qu'il y avait une limite de place dans une ligne vba. Peut-on alors passer à la ligne (dans le sens codage du terme, je ne demande pas l'équivalent de VbCrLf sous vba) ?

Cordialement,
Novice_vba

[EngueEngue]

Code :

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

1
2
3
4
5
Textbox1 ="Quand Margot dégrafait son corsage, Pour donner la gougoutte à son chat " _
"Tous les gars, tous les gars du village, Etaient là, la la la la la la " _
"Etaient là, la la la la la"
 
msgbox(Textbox1)

Donne

Quand Margot dégrafait son corsage, Pour donner la gougoutte à son chat Tous les gars, tous les gars du village, Etaient là, la la la la la la Etaient là, la la la la la

[Novice_vba]

Bonjour EngueEngue,

Je connaissais l'utilisation de l'underscore en théorie, et malgré l'humour de ton message , ton code ne marche pas sur mon ordi.
Mes précédentes tentatives pour utiliser " _ " n'ont pas abouti.
Peut-être est-ce du à ma version d'Excel (2010 ou 2007) ?

Autre question : L'utilisation de VbCrLf me renvoie parfois juste à la ligne et parfois me fait sauter une ligne (je pensais qu'il fallait doubler son utilisation, comme ceci : & VbCrLf & VbCrLf &).
Pourquoi ?

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
Sub toto()
TextBox1 = "Quand Margot dégrafait son corsage, Pour donner la gougoutte à son chat" & _
"Tous les gars, tous les gars du village, Etaient là, la la la la la la" & _
"Etaient là, la la la la la"
 
MsgBox (TextBox1)
End Sub

Autant pour moi...

Ton double retour chariot me laisse perplexe ... Aucune explication à te fournir..

Cependant si tu mets un retour chariot en début de ligne cela va te sauter une ligne..

[Invité]

" & _ permet de lire toute la ligne sans utiliser la barre de défilement mais revient à écrire sur une seule ligne.

Code :

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

1
2
3
4
5
6
7
Sub test()
Textbox1 = "Quand Margot dégrafait son corsage, Pour donner la gougoutte à son chat "
Textbox1 = Textbox1 & "Tous les gars, tous les gars du village, Etaient là, la la la la la la "
Textbox1 = Textbox1 & "Etaient là, la la la la la"
 
MsgBox (Textbox1)
End Sub

[Novice_vba]

Bonjour,

Merci pour vos réponses rdurupt et Enguegue concernant l'underscore. Cela marche à présent

Autant pour moi Enguegue, le VbCrLf ne me saute pas deux lignes... Il saute la ligne avec un très grand espace... Ne puis-je pas modifier cet espacement ?

Edit : Cela peut effectivement paraître un peu dérisoire, mais c'est vraiment moche ! Et ça compte quand même quand on envoie un mail (touche aussi bien l'esthétique que la logique du message d'ailleurs) :s