[EXCEL]Copier longue textbox [Résolu]

Signaler
Messages postés
7
Date d'inscription
jeudi 23 octobre 2003
Statut
Membre
Dernière intervention
25 avril 2012
-
Messages postés
7
Date d'inscription
jeudi 23 octobre 2003
Statut
Membre
Dernière intervention
25 avril 2012
-
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

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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>
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Messages postés
7
Date d'inscription
jeudi 23 octobre 2003
Statut
Membre
Dernière intervention
25 avril 2012

Merci beaucoup ca fonctionne!
Je ferme le sujet.