Lire une textbox ligne par ligne puis envoyer vers Excel

Question

Je voudrais savoir comment lire une Textbox ligne par ligne puis envoyer les lignes dans Excel.

J'ai déjà essayé avce la méthode "Instr":

Do
       I = InStr(Mesure.Txtbox1.Text, Chr$(13))
       If I Then
          Cotes = Left$(Mesure.Txtbox1.Text, I - 1) & Mid$(Mesure.Txtbox1.Text, I + 1)
       End If
       
   Loop While I

mais ca me sélectionne toutes les lignes ...

 Merci d'avance A+
Lag

stevebelgium · Answer

avec split c'est plus facille

Dim temp
    Dim x As Integer
    
    temp = Split(Me.Text1, Chr$(13))
    
    For x = 0 To UBound(temp)
        MsgBox temp(x)
    Next x

lagphil2 · Answer

Merci pour ta réponse. Je vais essayer  tout de suite.

A+

lagphil2 · Answer

Lag

capoueidiablo · Answer

mais dites moi si on utilise un split pour une textbox pleine, la mémoire elle va cracké non ?
--Capoueidiablo--

harteb · Answer

Salut
en fait je recupere les donées d'un port serie que j'affiche
dans le text box mais au bout d'un certain temps j'ai la msgbox"erreur380", je vais dans debogage et la c'est
text1.selstart=len(text1.text) qui est en jaune alors que ca me parait bon je me demande si c'est pas limiter par la taille
len(text1.text)#65556 au moment de l'erreur

si qqun a une solution ca m'aiderai pas mal a avancer

merci

Lire une textbox ligne par ligne puis envoyer vers Excel

5 réponses

Discussions similaires