Discussion :

[Ramdoulou]

Bonjour à tous,

alors voilà, je souhaiterai que lorsque je clique sur un commandbutton, il recherche dans mon richtextbox (rempli) si le mot inscrit dans un textbox n'est pas présent EN DOUBLE, et +.
J'arrive à le faire pour une seule copie du mot dans le richtextbox mais deux...

Merci d'avance.

Voici mon code pour une seule copie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Dim Found As String
Found = InStr(Form1.Text1.Text, Form1.Text2.Text)
 
If Found <> 0 Then
MsgBox "une copie"
   Else
   MsgBox "non trouvé"
 
End If

[Ramdoulou]

J'avais pensé à prendre la position du found et de recommencer à partir de cette position, mais je ne sais pas combien de fois je vais retrouver le même mot...mais il faudrait que ça soit pris en compte pour 2 fois et au delà.

[DAUDET78]

Regarde le fonctionnement de INSTR
Tu peux faire une deuxième recherche en précisant la position de départ dans la recherche dans la chaine. Si tu obtiens 0, c'est que tu n'as qu'une seule occurrence

PS : Le résultat de INSTR n'est pas un string

[Ramdoulou]

Merci de ta réponse.

Oui je sais bien, il faudrait que je fasse partir ma deuxième recherche en utilisant list.selstart = found + x avec x la taille du text recherché, mais c'est justement là que je ne sais pas comment m'y prendre, comment organiser les 2 recherches, sachant que je ne sais pas non plus combien de fois le mot peut réapparaitre, mais je souhaite que le logiciel réagisse lorsqu'il a été trouvé 2 fois et plus.

edit : j'ai même essayé avec des timer mais n'ai pas obtenu exactement ce que je voulais =x

[DAUDET78]

Analyse ma réponse #3, tu as la solution .....
C'est quoi cette histoire de timer ?#[!@?,~??

[Ramdoulou]

Merci beaucoup pour ta réponse, je devais juste changer de type de variable en effet...

Maintenant il me reste un petit problème, mais je pourrai surement le résoudre seul ça ira =)

Merci encore