Aller à la ligne X dans un textbox
Bonjour a tous
je cherche le moyen d'aller a la ligne ou se trouve une expression dans les lignes d'un textbox
j'ai essayé des petites chose mai rien n'y fait
le instr visiblement me donne un résultat faux(peut être a t il une limite )
curline m'envoie bien le caret a la ligne voulue après avoir bricolé le instr pour avoir le bon index de caractère
sauf que ça ne fait pas remonter l’ascenseur
auriez vous ça dans vos astuces Svp
Code:
1 2 3 4 5 6 7 8
| Private Sub Gsearch_Click()
Dim Txt As MSForms.TextBox, X&
If TextBox1.Visible Then Set Txt = TextBox1 Else Set Txt = TextBox2
X = InStr(1, Txt, Txtsearch)
If X > 0 Then Txt.SelStart = X:
Txt.SetFocus
Txt.CurLine = (Txt.CurLine - 1)
End Sub |