salut a tous
 
macro qui recherche un mot dans une feuille
 
 
Sub Macro1()
 
'Dim Var As String
On Error Resume Next
Var = InputBox("Mot à rechercher ?", , "" )
'pour ne rien supprimer en cas d' ECHAP ou D'ANNULER
If Var = "" Then Exit Sub
Set MotTrouvé = Cells.Find(What:=Var)
If Not MotTrouvé Is Nothing Then
MotTrouvé.Select
End If
 
End Sub
 
ca marche bien mais je voudrais l'automatise
 
je dois taper le mot a recherche dans la box
 
je voudrais que mot recherche s'incrive tout seul
 
en sachant que le mot n'est jamais le meme mais qu'il est toujour dans la cellule A1 d'une autre feuille
 
comment faire une idee    
 
 
merci par avance
 

Bonjour,
si j'ai bien compris...
de mémoire, un code un peu téléphoné et non testé.
Sub Test
Var = InputBox("Mot à rechercher ?", , "" )  
For i = 1 to worksheets.count
worksheets(i).activate
if Range("A1" ).value = Var Then Exit for
Next
Range("A1" ).Select
End Sub
 
C'est ça ?
A+