Récupérer ligne d'un TextBox multiligne

[Temjeh]

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]

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