copie fin de ligne apres recherche

Question

Bon et bien voila j'ai fait un editeur de texte avec une TextBox et
divers fonctions notamment la fonction find et findnext
qui suit:

Private Sub mnuSearchFind_Click()
   Dim lngPos As Long
   
   m_strSearch = InputBox("Entrez le mot a rechercher.", "Find Text")
   If m_strSearch = "" Then Exit Sub
   lngPos = InStr(1, txtData.Text, m_strSearch, vbTextCompare)
   If lngPos > 0 Then
      txtData.SelStart = lngPos - 1
      txtData.SelLength = Len(m_strSearch)
   Else
      m_strSearch = ""
      MsgBox "Aucun mot dans le document.", vbExclamation
   End If
End Sub

je souhaite maintenant remplacer le surlignement:
txtData.SelStart = lngPos - 1
      txtData.SelLength = Len(m_strSearch)

par une copie du reste de la ligne le mot trouvé compris dans une autre textbox
mais je n'arrive pas a voir!!!
si quelqu'un pouvez m'aider
     Merci d'avance

pcpunch · Answer

Voila !!!!


Dim lngPos As Long
m_strSearch = InputBox("Entrez le mot a rechercher.", "Find Text")
If m_strSearch = "" Then Exit Sub
lngPos = InStr(1, txtdata.Text, m_strSearch, vbTextCompare)

If lngPos > 0 Then
    'voila le reste de la ligne, pour l'afficher dans un textbox!!
    MsgBox Mid(txtdata, lngPos, InStr(lngPos, txtdata, vbCrLf) - lngPos)
Else
    MsgBox "Aucun mot dans le document.", vbExclamation
End If

 
++

cs_metek · Answer

Merci pour ta reponse!!!
Je l'ai donc ajouté et essayé mais il me dit :
erreur 5
Argument ou appel de procedure incorect!!
J'ai beau regardé je ne vois rien d'anormal!!

cs_metek · Answer

ah oui peut ete que ca vient de la:
le 
 InStr(lngPos, txtdata, vbCrLf) - lngPos
je ne comprend pas a quoi sert le lngPos a la fin!!!!
En l'enlevant il ne plante plus lorsuqe je lance ma fonction recherche or une fenetre apparait avec un bouton seulement!!!

Copie fin de ligne apres recherche

3 réponses

Discussions similaires