Discussion :

[patmeziere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,
Si j'ai bien compris, vous avez un texte sur plusieurs lignes dans un TextBox
Avez-vous mis la propriété Multiline à True

La fonction Instr va donner la position du mot cherché dans la chaine. Exemple MsgBox InStr(Me.TextBox1.Value, "tableau")

[patmeziere]

Bonjour Philippe Tulliez

oui en fait j'avais un events move qui venait perturber le fonctionnement
donc oui le instr donne bien la position
mais comme entre temps j'ai fini par mettre mes textbox dans une frame j'ai procédé autrement

1. un split du value par les sauts de ligne
2. une boucle sur le tableau
3. in instr sur les lignes du tableau
4. dès que trouver curline=index de la boucle
5. et frame.scrolltop idem

ça m'a même permis de faire une selection complete de la ligne avec sellength
merci pour le retour