Textbox vers ExcelRésolu

Question

Bonjour a tous,

je souhaite importer les valeurs de plusieurs Textbox multilignes vers un fichier Excel.
Par exemple:
-afficher dans la colonne A les valeurs contenues dans Textbox1 (1ere ligne du textbox dans la case A1, 2eme ligne ds A2...);
-afficher dans la colonne B les valeurs contenues dans Textbox2 (1ere ligne du textbox dans la case B1, 2eme ligne ds B2...);
- etc

Pour l instant j arrive a importer les valeurs des textbox, mais elles sont toutes dans la 1ere case (par exemple toutes les valeurs du textbox1 sont dans A1). Comment faire pour mettre une valeur par ligne?

Merci par avance,

Julio

mrdep1978 · Accepted Answer

Il faut d'abord d&#233;couper le contenu de ta textbox, chaque ligne &#233;tant d&#233;limit&#233;e par vbCrlf (Chr(10 & Chr(13)) = saut de ligne

Private Sub CommandButton1_Click()


Dim ls_Text() As String
Dim li_Ligne As Integer
With TextBox1
   'D&#233;coupe le contenu de la textbox par ligne
    ls_Text = Split(.Text, vbCrLf)
   'Parcourt le tableau ls_Text (=chaque ligne). Ubound renvoie le num&#233;ro du dernier &#233;l&#233;ment du tableau
    For li_Ligne = 0 To UBound(ls_Text)
         'Ecrit chaque ligne dans la cellule correspondante
        Feuil1.Cells(li_Ligne + 1, 1).Value = ls_Text(li_Ligne)
    Next li_Ligne
End With


End Sub

juliocasa · Answer

Merci beaucoup mrdep1978, cela m'a &#233;t&#233; d'une grande aide! 

Julio

Textbox vers Excel

2 réponses

Discussions similaires