[EXCEL]Copier longue textboxRésolu

Question

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

mortalino · Accepted Answer

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 ~ Mortalino ~ Colorisation automatique @++

( Nouveau forum : Exclusivement Office & VBA/STRONG>

mortalino · Answer

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

cs_Aquadrox · Answer

Merci beaucoup ca fonctionne!
Je ferme le sujet.

[EXCEL]Copier longue textbox

3 réponses

Votre réponse

Discussions similaires