FONCTION CHERCHE ET SELECTIONNE DS UN TEXTBOX

cs_NoMitsu Messages postés 122 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 15 février 2011 - 25 août 2003 à 22:36
analexploitation Messages postés 5 Date d'inscription samedi 6 septembre 2003 Statut Membre Dernière intervention 8 mai 2005 - 8 mai 2005 à 13:19

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8350-fonction-cherche-et-selectionne-ds-un-textbox

analexploitation Messages postés 5 Date d'inscription samedi 6 septembre 2003 Statut Membre Dernière intervention 8 mai 2005
8 mai 2005 à 13:19

une simple question, j'aimerai lui trouver une reponse
est il possible de faire le meme chose avec un textbox
contenant le text a rechercher et un webbrowser contenant un document html sans appeler la method findtext de IE.

merci

pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
10 sept. 2003 à 12:03

Effectivement meaculpa, c'est franchement plus rapide!!! donc Utiliser la fonction de NoMitsu, On peu pas étre le meuilleur a chaque fois lol. Merci ca m'aura appris a utiliser Instr!!!!!

Tilois Messages postés 721 Date d'inscription dimanche 10 juin 2001 Statut Membre Dernière intervention 27 mars 2011 7
26 août 2003 à 15:13

Ouais, j'ai fait le meme test et y'a pas photo, Instr est vraiment bcp plus rapide... Sinon, l'idée n'était pas trop mal

sedimax Messages postés 2 Date d'inscription vendredi 25 avril 2003 Statut Membre Dernière intervention 26 août 2003
26 août 2003 à 02:23

it excuses you know how gustaria to know to me if me podrias to recommend a pagina to learn VBA. please the urgent nesecito, my name is Diego sevilla.mi mail is dsevilla_cruz@hotmail.com I wait for your aid.

cs_NoMitsu Messages postés 122 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 15 février 2011
25 août 2003 à 22:36

Salut, le code marche inpec mais n'est pas tres rapide a cause de la boucle for next

pour exemple g fait un test (avec un athlon XP 1600+ et 512Mo de DDR) avec ta fonction sur une recherche qui contenait 20500 caratere il ma falu 23 secondes alors que si on remplace la boucle par instr on obtien avec la meme config et le meme nombre de ligne 0 seconde pour trouver la chaine.

voila un petit bout de code a pofiner qui devrais te permetre d'optimiser les performances:

Public Sub RechercheTxt(Source As TextBox, Txt As String, Optional NoDiffMajMin As Boolean = False)
Dim DebutStr As Integer

Select Case NoDiffMajMin
Case True 'Pas de respet Min/maj
If Source.SelStart 0 And Source.SelLength 0 Then
DebutStr = InStr(Source.SelStart + 1, UCase(Source.Text), UCase(Txt))
Else
DebutStr = InStr(Source.SelStart + Source.SelLength, UCase(Source.Text), UCase(Txt))
End If
Case False 'Respet Min/maj
If Source.SelStart 0 And Source.SelLength 0 Then
DebutStr = InStr(Source.SelStart + 1, Source.Text, Txt)
Else
DebutStr = InStr(Source.SelStart + Source.SelLength, Source.Text, Txt)
End If
End Select

If DebutStr = 0 Then MsgBox "Fin de la recherche": Exit Sub

Source.SelStart = DebutStr - 1
Source.SelLength = Len(Txt)
Source.SetFocus
End Sub

Elle sutilise comme ta fonction.
A++ et bonne continuation

Discussions similaires

question pour ds

Logique d'utilisation du registre DS (mode réel)

Comment ecrire dans un TextBox...

[VBA] Créer une TextBox dans Excel et copier des cellules dedans

remise a zero de fonction

Votre réponse

Discussions similaires