fonction rechercher dans un textboxRésolu

Question

bonjou
j'ai un textbox et je voudrai pouvoir chercher des lettres ou des mots dans le textbox par exemple
'si je cherche "a" dans "a b c d f g h j k l m o"
ca me le trouve
merci
HackVirusMan :-p

Gobillot · Accepted Answer

tout simple

    Dim x As Integer
    x = InStr(Text1, "a")
    If x Then
       MsgBox "trouvé en position " & x
       Else
       MsgBox "non trouvé"
       End If

CCJ · Answer

merci ca m'est utile a moi aussi
VirusMan :-p

VirusMan2 · Answer

juste comme ca pourquoi ,"a"
HackVirusMan :-p

VirusMan2 · Answer

ha non j'ai rien dit

HackVirusMan :-p

Gobillot · Answer

Pour éviter toute confusion VirusMan:

chaîne
une chaîne est délimitée par des guillemets et VB n'a aucune idée de ce qui se trouve à l'intérieur, s'il n'y a pas de guillemets, VB va essayer de l'interprêter comme nom de variable, mot clé, nom de fonction, etc ...
exemple:

DIM a As Integer
Dim b As String

a=  1234
b = "a"     'b contient le caractère "a"
b = a        'b contient "1234"

 InStr 
Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod  = vbBinaryCompare])

retourne la position de la première occurence d'une chaîne dans une autre.

exemple:
    b = "abcdefg"
'renvoie zero --> non trouvé    
    a = InStr(1, b, "E", vbBinaryCompare)
'trouvé en position 5
    a = InStr(1, b, "E", vbTextCompare)

'pour trouver toutes les occurences
    Dim a As Integer
    Dim x As Integer
    Dim b As String
    
    b = "abcdabcd"
    
    For x = 1 To Len(b)
        a = InStr(x, b, "ab")
        If a Then
           MsgBox "trouvé en position " & a
           Else
           Exit For
           End If
        x = a + 1
        Next
    MsgBox "fin de la recherche"

Gobillot · Answer

correction: For x = 1 To Len(b) a = InStr(x, b, "ab") If a Then MsgBox "trouvé en position " & a Else Exit For End If x = a ~~+ 1~~ Next MsgBox "fin de la recherche"

VirusMan2 · Answer

ok
HackVirusMan :-p

Fonction rechercher dans un textbox

7 réponses

Discussions similaires