TextBox

P

petitstagiaire

Guest

• 21 Août 2002

• #2

Pour récupérer tes lignes, tu dois faire une boucle en utilisant :

InStr(Debut_Ligne, TextBox1.Text, Chr(10))
qui te ramène la position du caractère de retour à la ligne

ensuite tu extrait tes chaînes avec la fonction Mid

tu rempli tes cellules au fure et à mesure avec
Range(Adr_Cell).Value = maligne

 

Vote positif 0 Vote négatif

P

petitstagiaire

Guest

• 21 Août 2002

• #3

Attention, ça ne marche que si tu utilise Ctrl+Enter pour passer à la ligne sinon ca n'est pas du "multiline".

 

Vote positif 0 Vote négatif

S

STéphane

Guest

• 21 Août 2002

• #4

bonjour

ceci devrait permettrait de récupérer ces lignes

do
I = J + 1
J = InStr(I, Texte, vbCr)
Ligne = Mid$(Texte, I, Iif(J, J - I, Len(Texte) - I + 1))
msgbox Ligne
loop While J

bye
Stéphane

 

Vote positif 0 Vote négatif

P

petitstagiaire

Guest

• 22 Août 2002

• #5

Y a-t-il un autre moyen pour passer à la ligne que d'utiliser la combinaison de touches "Ctrl+Enter" ?

 

Vote positif 0 Vote négatif

K

Kizman

Guest

• 22 Août 2002

• #6

En utilisant simplement Enter (...).

Tu mets l'option EnterKeyBehavior sur True...


Voilà!

 

Vote positif 0 Vote négatif

P

petitstagiaire

Guest

• 22 Août 2002

• #7

merci Kizman

 

Vote positif 0 Vote négatif