TextBox

[Kizman]

Salut,

Disons que j'ai une TextBox qui contient du texte sur plusieurs lignes.
J'aimerais mettre, par ex., le contenu de la 1ère ligne dans la cellule "A1", le contenu de la 2ème ligne dans la cellule "A2", etc...

Comment faire?




Merci...

Kizman

 

[petitstagiaire]

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

 

[petitstagiaire]

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

 

[STéphane]

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

 

[petitstagiaire]

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

 

[Kizman]

En utilisant simplement Enter (...).

Tu mets l'option EnterKeyBehavior sur True...


Voilà!

 

[petitstagiaire]

merci Kizman