Bonjour à tous
 
Je souhaite faire une petite macro me permettant de chercher un mot dans toute les feuilles de mon classeur.
 
Sur un feuille j'ai un bouton rechercher ou la on saisie le mot que l'on recherche. On clic et la fonction nous emmène directement sur la cellule contenant ce mot. Si ce n'est pas la cellule que l'on cherche on aurait la possibilité de cliquez sur suivant pour allez à l'itération suivante ou cliquez sur OK si c'est la bonne cellule.  
 
Merci d'avance

enregistreur de macro ca devrait aller

Sinon, Ctrl+F et dans Options, choisir "classeur" à la place de "Feuille"... ca marche assez bien, comme macro.

Plus sérieusement, le type de macro que tu veux faire est un peu long à expliquer, il faudrait que tu passes par un userform... c'est pas compliqué mais c'est long, surtout que comme je l'ai indiqué, excel fait ca très bien.

Merci de vos réponses! En cherchant sur la toile j'ai trouvé une macro qui me convenait.

Tu pourrais mettre le code en ligne STP.
Merci.
 
 

Voila le code de la macro:
 
Sub Macro_Recherche()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte
 
Str_Plage = "B:B"
Str_critère = InputBox("Article à rechercher ?" )
For Each Feuil In Sheets
For Each Cel In Feuil.Range(Str_Plage)
If UCase(Cel) Like "*" & UCase(Str_critère) & "*" Then
 
Feuil.Activate
Cel.Activate
 
X = MsgBox("Mot """ & Str_critère & """ trouvé :" & Chr(13) & _
"Sur la feuille : " & Feuil.Name & Chr(13) & _
"à la cellule : " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
"Oui : on arrête la recherche" & Chr(13) & _
"Non : on continue la recherche " & Chr(13), vbDefaultButton2 + _
vbQuestion + vbYesNo, "MOT TROUVÉ" )
Select Case X
Case 6
    Feuil.Activate
    Cel.Activate
    Exit Sub
Case 2 'annuler on sort
    Exit Sub
Case Else 'Non=7
'on fait rien, mais on pourrait
End Select
End If
Next Cel
Next Feuil
MsgBox ("pas trouvé" )
End Sub
 
 
   
 

Je viens de tomber sur ce post et c'est exactement ce qu'il me fallait!
 
Par contre quel ligne de code faut il modifier pour qu'il ne prend qu'une feuille en particulier?

Bonjour
 

Celle ci : For Each Feuil In Sheets
et celle ci forcément: Next Feuil
Ainsi que les références a Feuil
 
Ou tu peux remplacer  For Each Feuil In Sheets par un Set Feuil=Sheets("Nom de ta feuille" ), virer le Next Feuil et ca devrait rouler normalement
 
Cordialement

ca marche, merci à toi!!!!!!!!!!!!