boite de recherche dans un classeur

Version imprimable

salut ,
pourquoi quand je fais une recherche et que les mots on ete trouver il ne s'arrette pas en me disant qu'il n'y en a plus et si je fais non pour qu'il stop , il change de page ????
:arf:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub RechercheMot() mot = InputBox("Mot à rechercher ?") For feuille = 1 To Sheets.Count Sheets(feuille).Select Set trouvé1 = Cells.Find(What:=mot) If Not trouvé1 Is Nothing Then trouvé1.Activate étiq: If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub Set trouvé2 = Cells.FindNext(After:=ActiveCell) trouvé2.Activate GoTo étiq End If Next feuille End Sub
si je coupe la section next page il ne fonctionne plus ???

je pose beaucoup de question , mais un jour je serai meilleur et pourrai peut-etre vous aider a mon tour.:hola:

Le comportement est normal, dans la documentation on lit :
"Lorsque la recherche atteint la fin de la plage de recherche spécifiée, elle revient au début de cette plage.
Pour arrêter une recherche lorsqu'elle revient au point de départ, enregistrez l'adresse de la première cellule trouvée, puis comparez l'adresse de chaque cellule ultérieurement trouvée avec l'adresse enregistrée."

voici la solution en modifiant légèrement ton code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub RechercheMot()
 
mot = InputBox("Mot à rechercher ?")
For feuille = 1 To Sheets.Count
    Sheets(feuille).Select
    Set trouvé1 = Cells.Find(What:=mot)
    If Not trouvé1 Is Nothing Then
    Adresse_premier = trouvé1.Address
    trouvé1.Activate
étiq:
    If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
    Set trouvé2 = Cells.FindNext(After:=ActiveCell)
    If trouvé2.Address = Adresse_premier Then GoTo étiq2
    trouvé2.Activate
    GoTo étiq
    End If
étiq2:
Next feuille
End Sub

et une autre un peu plus propre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Find_Mot()
mot = InputBox("Mot à rechercher ?")
 
For feuille = 1 To Sheets.Count
    Sheets(feuille).Select
    Set trouvé1 = Cells.Find(What:=mot)
    If Not trouvé1 Is Nothing Then
        Adresse_premier = trouvé1.Address
 
        Do
            trouvé1.Activate
            If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
            Set trouvé1 = Cells.FindNext(After:=ActiveCell)
        Loop While Not trouvé1 Is Nothing And trouvé1.Address <> Adresse_premier
 
    End If
 
Next feuille
End Sub

25/02/2009, 00h32
lebeniste

merci ,
dans le fond il fesait une loupe sans s'arreter ???

mais maintenat ca fonctione parfaitement