Recherche d'une variable dans un long TextBox

Tu es gentil, mais je n'attends personnellement pas de remerciements, dès lors que j'en ai profité moi-même (s'aérer un peu a toujours du bon).
Ceci étant dit : ce n'est pas pour rien que je parlais d'instabilités dans l'un des deux codes (pas le mien) :
Fais donc le test suivant (entre autres causes d'instabilités)
Mets ceci dans la textbox (par copié/collé)

Code:

---

1 2 3 4 5 6 7

atoto b c d e f toto

---

1) Clique sur le bouton de commande -->> toto de la ligne 1 est bien surligné
2) Clique à nouveau --->> toto de la dernière ligne est bien surligné
Jusque-là, tout va bien
3) sélectionne les ligne d, e, f et toto et supprime-les
4) clique à nouveau sur le bouton de commande --->> ne trouve plus le 1er toto, quel que soit le nombre de clics faits

Mon code ne "perd" rien dans les mêmes circonstances.
Voilà l'une (il y en a d'autres) des raisons de mon désaccord.

re
en effet apres suppression de d e f toto apres !!! avoir fait un premier tour ,on ne selectionne plus le 1 er toto et pour cause la variable "start" est plus grande que le len(du texte restant):ptdr:
comme ca n'etait pas demandé je n'avais pas prevu une eventuelle suppression de texte en fonctionnement

voila cette erreur corrigée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private start As Long Private Sub CommandButton1_Click() Dim cherche As String cherche = "toto" suivant cherche, start End Sub ' ' Private Sub suivant(cherche As String, start) Dim i As Integer With TextBox1 If start > .TextLength Then start = 0 For i = start To .TextLength .SelStart = i .SelLength = Len(cherche) .SetFocus If .SelText = cherche Then start = .SelStart + Len(cherche): Exit Sub If i = Len(.Text) Then .SelStart = 0: start = 0 'ici ca fonctionne, ca revient bien en haut du texte du textbox Next End With End Sub

---

Citation:

---

voila cette erreur corrigée

---

Celle-là ...
Et tu crois vraiment que je vais maintenant passer les autres en revue, à tour de rôle ?
Mille excuses, mais c'est là un problème de "grattage" à peaufiner (de sorte à ce que l'avion n'ait pas un accident du fait de n'avoir pas pensé à ceci ou cela).
Je me garderais d'autant moins de te jeter la pierre que (relis ce que j'en ai ait plus haut) j'avais moi-même écrit à peu près le même code que le tien, avec la même démarche que la tienne et au "grattage" poussé, les mêmes surprises --->> d'où l'écriture d'un code plus lourd, mais lui, sans faille. ;)
Tu sais quoi, Patrick (mais je crois avoir déjà eu l'occasion de te le dire) ? Le "grattage" est une opération très importante. Le développeur doit la mener en se transformant carrément en "avocat du diable" (contre lui-même, donc, comme à un agrès au gymnase).
Voilà, voilà ...

re
non personne ne t'oblige a quoi que se soit
si je trouve une faille je corrigerais voila tout

1. l'incrementation etant similaire a la tienne a savoir i pour moi k pour toi +len(cherche) si OK
2. le start 0 etant controlé
3. le textlength modifié(eventuelle suppression de texte) etant controlé aussi par le test start >textlength
4. le retour a zero etant controlé aussi par le dernier if sur start=textlength ou len(.text) comme tu veux (on peu boucler indefiniment en cliquant)de la meme maniere que la fontion rechercher dans notpad par exemple
5. faille si il y a elle serait bien vicieuse

je suis plus préoccupé par le retour du scroll a zero si texte plus grand que le textbox (l'avancement du scroll etant ma fois automatique avec la selection il n'y a pas en s'en préoccuper)