recherche paragraphe dans Textbox

[Temjeh]

Bonjour et merci d'avance

J'importe du texte dans mon TextBox (ca va)
J'aimerais savoir si il y a un bout de code pour faire une recherche dans le TextBox de mon UserForm.

Exemple si il trouve 3 dans mon TextBox, il scroll ou met en première ligne le texte ou ce trouve le 3.

Merci beaucoup

Temjeh

 

[Temjeh]

Re : recherche paragraphe dans Textbox

Bonjour

J'ai trouvé ceci mais il met la valeur recherché dans la dernière ligne du textbox, pas la premère

With Me!TextBox2
    strSearch = InputBox("Enter text to find:")
    intWhere = InStr(.Value, strSearch)
    If intWhere Then
        .SetFocus
        .SelStart = intWhere - 1
        .SelLength = Len(strSearch)
    Else
        MsgBox "String not found."
    End If
 End With

Merci

 

[job75]

Re : recherche paragraphe dans Textbox

Bonjour Temjeh,

Il faut décompter les renvois à la ligne vbLf :

With Me.TextBox2
    strSearch = InputBox("Enter text to find:")
    intWhere = InStr(Replace(.Value, vbLf, ""), strSearch)
    If intWhere Then
        .SetFocus
        .SelStart = intWhere - 1
        .SelLength = Len(strSearch)
    Else
        MsgBox "String not found."
    End If
 End With

A+

 

[Temjeh]

Re : recherche paragraphe dans Textbox

Merci

Il met encore la position de ligne si trouvé à la fin du TextBox, pas au début!

Temjeh

 

[job75]

Re : recherche paragraphe dans Textbox

Re,

Il faut d'abord placer le curseur à la fin du texte :

With TextBox2
    strSearch = InputBox("Enter text to find:")
    intWhere = InStr(Replace(.Value, vbLf, ""), strSearch)
    If intWhere Then
        .SetFocus
        .SelStart = Len(.Value) 'curseur à la fin du texte
        .SelStart = intWhere - 1
        .SelLength = Len(strSearch)
    Else
        MsgBox "String not found."
    End If
 End With

Bien entendu si la sélection est dans les dernières lignes elle ne peut pas être en haut de la TextBox !

Fichier joint.

A+

 

[Temjeh]

Re : recherche paragraphe dans Textbox

Yes

Merci beaucoup, ton dernier code fonctionne très bien

Merci encore

Temjeh