Discussion :

[unparia]

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 :

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

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.

[patricktoulon]

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)
comme ca n'etait pas demandé je n'avais pas prevu une eventuelle suppression de texte en fonctionnement

voila cette erreur corrigée

Code :

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

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

[unparia]

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à ...

[patricktoulon]

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)