Temjeh
XLDnaute Accro
Bonjour et merci d'avance
J'ai ceci que l'on m'a donné pour extraire les 4 lignes d'un textbox vers cells:
t = ActiveCell.Row
On Error Resume Next
For k = 3 To 6
Cells(t, k) = Split(TextBox1.Text, Chr(10))(k - 3)
If Err > 0 Then Err.Clear: Exit For
Next k
J'ai plus de donné maintenant (7 lignes) et j'aimerais qu'il saute dans la boucle la ligne 2, 3, 4
et coller vers cells la 1, 5, 6 ,7
Merci
Temjeh
J'ai ceci que l'on m'a donné pour extraire les 4 lignes d'un textbox vers cells:
t = ActiveCell.Row
On Error Resume Next
For k = 3 To 6
Cells(t, k) = Split(TextBox1.Text, Chr(10))(k - 3)
If Err > 0 Then Err.Clear: Exit For
Next k
J'ai plus de donné maintenant (7 lignes) et j'aimerais qu'il saute dans la boucle la ligne 2, 3, 4
et coller vers cells la 1, 5, 6 ,7
Merci
Temjeh