Discussion :

[lebeniste]

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 ????

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

[PPz78]

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 :

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
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 :

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

[lebeniste]

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

mais maintenat ca fonctione parfaitement