[EXCEL]Copier longue textbox

Résolu
cs_Aquadrox Messages postés 7 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 25 avril 2012 - 9 août 2007 à 16:10
cs_Aquadrox Messages postés 7 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 25 avril 2012 - 10 août 2007 à 07:11
Bonjour,
J'ai fait des recherche mais n'ai pas trouvé ce que je voulais, si jamais mon sujet a déja été posté je m'en excuse.
Voila mon probleme, j'ai créé un Userform sur excel, il est simplement composé d'une textbox, je voudrai copier cette testbox dans excel de la facon suivant:
- commencer dans la cellule A1
- a chaque nouvelle ligne dans la textbox descendre d'une cellule
etc...

Exemple:
-----
Si dans la textbox j'ai:
456 abc
235 mpo
698 njp

Alors dans excel:
A1: 456 abc
B1: 235 mpo
C1: 698 njp

Mon problème est le suivant, lorsque je fait la copie en appuyant sur validé, toutes les lignes sont copiés dans la cellule A1, avec un carré a la place du retour a la ligne...
Autre chose, le texte que je copie est tres long, plus de 1000 mots, plus de 60 lignes.
Pour le moment mon code est tres simple:

Private Sub Création_Click()
Cells(1, 1).Select
Selection.Value = Texte1   'Texte1: nom de la textbox

Unload UserForm1
End Sub

Merci d'avance!

PS: j'utilise VB 6.3

3 réponses

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
9 août 2007 à 23:19
Fait chier le cache ^^

Désolé, on recommence (heureusement que je suis passé par la coloration, c'est en mémoire)

Bref, avec Split et une boucle, ça fera l'affaire :

dim MesLignes() As String, i As long

MesLignes =  Split(TextBox1.Text, vbCrLf)

For i = LBound(MesLignes) To UBound(MesLignes)
   Cells(i + 1, 1).Value = MesLignes(i)
Next i

Erase MesLignes

~ <small> Mortalino ~ Colorisation automatique </small>

@++

<hr width ="100%" size="2" />( Nouveau forum : Exclusivement Office & VBA/STRONG>
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
9 août 2007 à 23:17
@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
cs_Aquadrox Messages postés 7 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 25 avril 2012
10 août 2007 à 07:11
Merci beaucoup ca fonctionne!
Je ferme le sujet.
Rejoignez-nous