Macro Rechercher mot

[bobjazz]

Bonsoir le Forum
En dessous, il y a une macro qui me sert à rechercher un mot dans un classeur entier

Je voudrais la continuer en faisant un choix en fin de recherche

Choix entre nouvelle recherche et fermer

Je Bloque

Voila la macro

Sub Rechercher()


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)
If trouvé2.Column <> trouvé1.Column Or trouvé2.Row <> trouvé1.Row Then

trouvé2.Activate
GoTo étiq
End If
End If
Next Feuille

'
End Sub

Merci au forum

Bonne Soirée

Bobjazz

 

[G.David]

Heu as tu essayez avant le 'End sub' d'appeler une autre macro choix avec une msgbox vbyes vbno qui soit sort soit te renvoyes sur recherche?
Cordialement
G.David

 

[CBernardT]

Bonsoir Bobjazz et G.David,

Je te propose la solution suivante en pièce jointe :

1- Vérification de la présence du mot à chercher ;
2- Recherche des mots présents et arrêt dessus avec choix de continuer ou d'arrêter.

Cordialement

Bernard [file name=RechercheValeurMultiFeuilles_20050831000711.zip size=15160]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RechercheValeurMultiFeuilles_20050831000711.zip[/file]

Message édité par: CBernardT, à: 31/08/2005 00:08

 

[bobjazz]

Bonjour G.David et CbernardT

Merci à vous deux, j'ai ma reponce

Merci Merci

Bonne Journée

Bobjazz

 

[viking58]

Re : Macro Rechercher mot

Bonsoir à toutes et tous. Nouvel arrivant sur ce forum, je me permets une question:

Je viens de découvrir votre macro de recherche de mots qui correspond tout à fait à mes attentes.
Je vous en remercie.

1) Sur un nom, par exemple, Paul Dubois, si je recherche Dubois, elle ne trouve pas.
Si je tape Paul Dubois, elle trouve.

2) La recherche est-elle effectuée sut toute la feuille ?
Car j'ai des mots devant les yeux que la macro ne trouve pas.

3) J'aimerai ne pas être obligé de taper pour mes recherches les caractères accentués, les majuscules, etc... Est ce possible ?

Merci