Bonjour à tous,
J'essaie de rédiger des lignes d'instructions VBA qui me permettrait de récupérer les différentes données présentes les unes en dessous des autres dans un textbox, et de les reporter, ligne par ligne dans une plage de donnée sur une feuille de calcul excel.
En parcourant les différents forumes VBA, je suis parvenu à écrire ces lignes:
Private Sub CommandButton1_Click()
Dim j As Integer
Dim Ctrl As Control
Dim myrange As Range
Dim Tableau() As String
myrange = Cells(24, 3)
j = 1
For Each Ctrl In Userform1.Controls
If TypeName(Ctrl) = "TextBox" Then
Tableau = Split(TextBox.Value, "vbCrLf")
myrange.Offset(j - 1, 0) = Tableau(j - 1)
j = j + 1
End If
Next Ctrl
Unload Me
End Sub
Malheureusement, l'instruction "Tableau = Split(TextBox.Value, "vbCrLf")" pose problème, et je n'arrive pasà comprendre pourquoi.
Quelqu'un peut-il m'expliquer quel est le problème et m'aider à trouver une solution? 🙂
Merci d'avance à tous!
J'essaie de rédiger des lignes d'instructions VBA qui me permettrait de récupérer les différentes données présentes les unes en dessous des autres dans un textbox, et de les reporter, ligne par ligne dans une plage de donnée sur une feuille de calcul excel.
En parcourant les différents forumes VBA, je suis parvenu à écrire ces lignes:
Private Sub CommandButton1_Click()
Dim j As Integer
Dim Ctrl As Control
Dim myrange As Range
Dim Tableau() As String
myrange = Cells(24, 3)
j = 1
For Each Ctrl In Userform1.Controls
If TypeName(Ctrl) = "TextBox" Then
Tableau = Split(TextBox.Value, "vbCrLf")
myrange.Offset(j - 1, 0) = Tableau(j - 1)
j = j + 1
End If
Next Ctrl
Unload Me
End Sub
Malheureusement, l'instruction "Tableau = Split(TextBox.Value, "vbCrLf")" pose problème, et je n'arrive pasà comprendre pourquoi.
Quelqu'un peut-il m'expliquer quel est le problème et m'aider à trouver une solution? 🙂
Merci d'avance à tous!