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.