Renvoi à la ligne dans un textBox

Bonjour,

Essayez le code suivant dans un UserForm dans lequel aura été créé
préalablement une TextBox nommée TextBox1

'*************************
Option Explicit
Private Sub UserForm_Initialize()
Dim A$
'=========================== '### Pour faire fonctionner le Select Case ###
'### Sert pour l'exemple. A jeter par la suite ###
Dim x%
Dim y%
x% = Second(Time)
y% = x% Mod 2
'=========================== Select Case y%
Case 0
A$ = "Pair. Il était une fois dans l'ouest"
Case 1
A$ = "Impair. Je vais à la ligne" & vbCrLf & _
"Je suis sur la deuxième ligne" & vbCrLf & vbCrLf & _
"J'ai sauté 2 lignes"
End Select
With TextBox1
.Value = A$
.MultiLine = True 'Nécessaire
End With
End Sub

'******************************

A NOTER
Utilisation de vbCrLf (ou Chr(10) à votre convenance)
et de la propriété MultiLine

Cela vous convient-il ?

Cordialement.

PMO
Patrick Morange

Bonjour, je cherche comment je peux faire un renvoi à la ligne dans un
textbox, dont la "value" est obtenue suite à un select case ?

J'ai parcouru le forum, mais je n'ai rien trouvé (ou rien vu ?)

Merci d'avance de votre aide

Renaud

Bonsoir Patrick, c'est tout à fait ce que je recherchais. Merci beaucoup
pour votre réponse.
A bientôt sur le forum !

Renaud


"PMO" <PMO@discussions.microsoft.com> a écrit dans le message de news:
F7A92DF3-5236-414C-93C5-D68B0CED16CA@microsoft.com...

Bonjour,

Essayez le code suivant dans un UserForm dans lequel aura été créé
préalablement une TextBox nommée TextBox1

'*************************
Option Explicit
Private Sub UserForm_Initialize()
Dim A$
'=========================== > '### Pour faire fonctionner le Select Case ###
'### Sert pour l'exemple. A jeter par la suite ###
Dim x%
Dim y%
x% = Second(Time)
y% = x% Mod 2
'=========================== > Select Case y%
Case 0
A$ = "Pair. Il était une fois dans l'ouest"
Case 1
A$ = "Impair. Je vais à la ligne" & vbCrLf & _
"Je suis sur la deuxième ligne" & vbCrLf & vbCrLf & _
"J'ai sauté 2 lignes"
End Select
With TextBox1
.Value = A$
.MultiLine = True 'Nécessaire
End With
End Sub

'******************************

A NOTER
Utilisation de vbCrLf (ou Chr(10) à votre convenance)
et de la propriété MultiLine

Cela vous convient-il ?

Cordialement.

PMO
Patrick Morange

Bonjour, je cherche comment je peux faire un renvoi à la ligne dans un
textbox, dont la "value" est obtenue suite à un select case ?

J'ai parcouru le forum, mais je n'ai rien trouvé (ou rien vu ?)

Merci d'avance de votre aide

Renaud