Recherche d'une chaine de caractères dans une textbox --- n'utilise pas la fonction instr()

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 434 fois - Téléchargée 26 fois

Contenu du snippet

A FAIRE AVANT TOUT : Creer un controle richtextbox nommé Richtextbox1 et non pas une textbox puis un bouton nommé BtnCherche.

Ce code recherche une chaîne de caractères dans une RichTextBox et vous indique dans une msgbox si la chaîne de caractères a ete trouvée ou pas et si cette chaîne a ete trouvée la msgbox vous indique a quelle ligne.

Source / Exemple :


Private Sub BtnCherche_Click()
Dim FoundPos As Integer
Dim FoundLine As Integer
' Recherche le texte spécifié dans le contrôle RichTextBox.
FoundPos = RichTextBox1.Find("ecrivez ici le mot que vou souhaitez trouver", , , rtfWholeWord)
' Affiche un message qui indique si le texte a été retrouvé ou non.
If FoundPos <> -1 Then
' Renvoie le numéro de la ligne où le texte a été retrouvé.
FoundLine = RichTextBox1. GetLineFromChar(FoundPos)
MsgBox "Mot retrouvé à la ligne " & CStr(FoundLine+1)
Else
MsgBox "Mot introuvable."
End If
End Sub

Conclusion :


gfini

A voir également

Ajouter un commentaire

Commentaires

Messages postés
20
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
7 janvier 2005

Ce n'est pas moi qui met ma note et meme si cette source vient de msdn cela peut toujours aider ceux qui ne l'ont pas ou ne connaissent pas donc voila je n'ai jamais incité a me mettre LA MEILLEURE note. J'ai simplement dit notez moi mais pas pour moi mais surtout pour voir si cette source peut apporter de l'aide donc voila je n'ai jamais dit que cette source etait de moi. ++ DiaKt
Messages postés
79
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
8 juin 2004

Je me permettrai de ne mettre aucune note à cette source car ca reviendrai à noter MSDN parce que oui cette source est issue de l'aide Microsoft !
Même non de variables, mêmes commentaires...

Ok, tu as le droit de mettre ca sur le site, ca peut aider ceux qui n'ont pas l'aide mais précise le alors, parce que là ta note de 6/10 est totalement iméritée !!!

Pas cool du tout !
Messages postés
589
Date d'inscription
lundi 25 août 2003
Statut
Membre
Dernière intervention
18 juillet 2010

J'ai oubliier je mis 6/10 a ta source.
Messages postés
589
Date d'inscription
lundi 25 août 2003
Statut
Membre
Dernière intervention
18 juillet 2010

D'aprés la date d'inscription sur vbfrance tu debutes, donc pour un débutant c'est un bon code, une bonne méthode pour utiliser la fonction find. Bon courage et continue comme sa.

fitz

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.