Textbox

Question

Salut!

-Par exemple j'ai dans une textbox : "Salut! c'est moi
                                                 Bonsoir toi
                                                 je suis la
                                                 qui étes vous
                                                 bonne nuit leur"

  *Comment faire pour récupérer la ligne où se trouve "étes" , et comment récupérer tous les mots "étes" présent dans la textbox

-Merci

jmfmarques · Answer

Bonsoir,

Même réponse qu'ici :
http://www.vbfrance.com/infomsg_EXTRAIRE-DANS-LABEL_964854.aspx#3

en éclatant sur le séparateur vbcrlf
puis en bouclant sur le tableau obtenu pour en extraitre les chaînes contenant "êtes" (et l'indice correspoondant de ton tableau... c'est-à-dire le n° de ligne) ...
pour savoir si "êtes" est présent dans un article du tableau obtenu : utilisation de Instr.
(une foultitude d'exemples chaque semaine sur ce forum)

vbnino · Answer

J'ai utilisé split, mais comment savoir à quelle ligne est le mot "étes", parce-que ce que je fais , n'est pas constant , le text change alors le nombre de ligne change

jmfmarques · Answer

et l'indice correspoondant de ton tableau... c'est-à-dire le n° de ligne) ...


Car je pense que tu te réfères aux lignes réelle (pas celles d'affichage qui dépendent, elles de la largeur de la textbox et ne sont donc pas de "vraies" lignes...)

vbnino · Answer

J'ai rien compris , tu me donner un exemple

mortalino · Answer

Faut parcourir tes valeurs une par une jusqu'à la trouver..

dim i as long

for i = lbound(TonTableauVariables) to ubound(TonTableauVariables)
    if TonTableauVariables(i) = "étes" then
        ' ce qu'iil doit faire
    end if
next i

erase TonTableauVariables

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

mortalino · Answer

j'ai oublier..

    if TonTableauVariables(i) = "étes" then
        ' ce qu'iil doit faire
        EXIT FOR
    end if

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

vbnino · Answer

TonTableauVariables est-ce list1.list ou ... ?

mortalino · Answer

TonTableauVariables = split(TonTextbox.text, vbcrlf)

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

vbnino · Answer

j'ai écris:
  
   For i = LBound(Split(Text1.Text, vbCrLf)) To UBound(Split(Text1.Text, vbCrLf))
    If Split(Text1.Text, vbCrLf)(i) = "onClick" Then
              List4.AddItem "yes"
       Exit For
    End If
Next i
Erase Split(Text1.Text, vbCrLf)

-mais ça marche pas , il n'affiche rien dans list4

mortalino · Answer

Mouhha tu m'étonnes 

adaptations :

dim TonTableauVariables() as string

TonTableauVariables = Split(Text1.Text, vbCrLf)

For i = LBound(TonTableauVariables) To UBound(TonTableauVariables)
    If TonTableauVariables(i) = "onClick" Then
              List4.AddItem "yes"
       Exit For
    End If
Next i
Erase TonTableauVariables

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

vbnino · Answer

Désolé toujours rien

mortalino · Answer

dans 

For i = LBound(TonTableauVariables) To UBound(TonTableauVariables)
    Debug.Print "~" & TonTableauVariables & "~"
    If TonTableauVariables(i) = "onClick" Then
              List4.AddItem "yes"
       Exit For
    End If
Next i

rajoute ce que j'ai mis en bleu, quand t'as fais le code, appuie sur Ctrl G et copie moi cee qu'il y a dans la fenêtre d'exécution

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

mortalino · Answer

attention, j'ai oublié
    Debug.Print "~" & TonTableauVariables(i) & "~"

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

Textbox

13 réponses

Votre réponse

Discussions similaires