Discussion :

[Mugette]

Bonjour,

J'ai un souci :

J'ai une textbox en multiline (dans la feuil1).
Mon but etant de recopier les lignes de cette textbox (préalablement rempli par le user) dans la feuil2.
cependant je voudrais que le "contenu" de la ligne1(de la txtbox) aille dans la cellule A1, la ligne2 dans la cellule A2, etc...
pouvez-vous m'aider ?

merci d'avance.
ciao

[conconbrr]

Tu ne pourrais pas utiliser un combobox à valeurs modifiables à la place de ton textbox multiligne?? Parce que à ce moment là ça serait facile de récupérer les différentes lignes...

[dadavyvy]

Et avec :

Code :

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

1
2
Dim tabl
tabl = split(TextBox1.Text, chr(13))

Ensuite tu parcoures la tabl pour récupérer les valeurs et le mettre dans chaque cellule, sachant que le Chr(13) correspond au retour chariot :
Ctrl + Enter dans le TextBox multiligne.

[Mugette]

je n'arrive pas à faire ce que tu dis, tu peux m'aiguiller un peu stp ?
merci d'avance.
ciao

[dadavyvy]

L'utilisateur a rentré qqch comme :

Code :

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

1
2
ligne1[retour chariot]
ligne2

avec [retour chariot] = "CTRL" + "ENTER" = Chr(13)
Le split te met le contenu de ta textbox dans un tableau (Array), avec dans chaque "case" du tableau, le texte trouvé grâce à une séparation par le caractère "retour chariot".
Ainsi en parcourant ton tableau :

Code :

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

1
2
3
For i = 0 To Ubound(tabl)   'Ubound donne la plus grande dimension de ton tableau, càd le dernier indice du tableau, sachant que le 1er est 0
      MsgBox tabl(i)
Next i

Au lieu de faire un MsgBox, tu n'as qu'a coller chaque valeur dans les cellules que tu veux.

[Mugette]

ok c'est bon, j'avais pas compris que Split créai un tableau tout seul...

merci bien, l'incident est clos.

Ciao @tous