Temjeh XLDnaute Accro Supporter XLD 20 Janvier 2016 #1 Bonjour et merci d'avance Je récupère des données de poste sur le net (tracking) Trop long pour le collé dans une feuille et ensuite le récupérer. (7,21003E+15) Donc je colle plusieurs lignes dans un textbox multiligne et le tracking si trouve entre la 20 et 25 ème ligne. Est-ce possible de faire un test sur chaque ligne du Textbox et si il trouve sur une ligne "Suivre un colis" avoir en msgbox la ligne suivante. EX: Si il y a en ligne 21 du TextBox "Suivre un colis", je veut la ligne 22. Ensuite j'y collerai dans ma cellule avec un apostrophe devant Merci de votre temps Temjeh Dernière édition: 20 Janvier 2016
Bonjour et merci d'avance Je récupère des données de poste sur le net (tracking) Trop long pour le collé dans une feuille et ensuite le récupérer. (7,21003E+15) Donc je colle plusieurs lignes dans un textbox multiligne et le tracking si trouve entre la 20 et 25 ème ligne. Est-ce possible de faire un test sur chaque ligne du Textbox et si il trouve sur une ligne "Suivre un colis" avoir en msgbox la ligne suivante. EX: Si il y a en ligne 21 du TextBox "Suivre un colis", je veut la ligne 22. Ensuite j'y collerai dans ma cellule avec un apostrophe devant Merci de votre temps Temjeh
Temjeh XLDnaute Accro Supporter XLD 20 Janvier 2016 #2 Re : Récupérer ligne d'un TextBox multiligne Merci j'ai trouvé x = Split(TextBox1.Text, vbCrLf, , vbTextCompare) For i = 12 To 100 If x(i) = "Suivre un colis" Then MsgBox x(i + 1): Exit Sub Next i A+ Temjeh Vote positif 0 Vote négatif
Re : Récupérer ligne d'un TextBox multiligne Merci j'ai trouvé x = Split(TextBox1.Text, vbCrLf, , vbTextCompare) For i = 12 To 100 If x(i) = "Suivre un colis" Then MsgBox x(i + 1): Exit Sub Next i A+ Temjeh