Soit une form (form1) avec deux Textbox (text1 et text2) et un bouton (Find).
- Text1 un contient un texte.
- Text2 contient l'expression à rechercher.
- Find lance la commande de recherche.
Source / Exemple :
'On affecte la commande suivante au bouton Find :
Private Sub Find_Click()
Dim Found as string
Found = InStr(Form1.Text1.Text, Form1.Text2.Text)
'si le contenu de Text2 existe dans Text1
If Found <> 0 Then
Form1.Text1.SetFocus
Form1.Text1.SelStart = Found - 1
' on le sélectionne
Form1.Text1.SelLength = Len(Form1.Text2.Text)
End If
End Sub
Conclusion :
Ensuite, on fait ce qu'on a besoin de faire.
(voir aussi Couper, copier, coller dans une textbox).
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.