Modif formule : recherche valeur sur feuille sélectionner

Bonjour,

Je voudrais modifier la macro suivante, pour que la recherche s'applique uniquement sur la feuille 1 ou feuille sélectionner et non sur la dernière feuille trouvé.

Sub Rechercher()

Dim Sh As Worksheet

Dim c As Range

Dim Nom As String, firstAddress As String

Nom = InputBox("Saisir le N° de semaine à rechercher ", "Rechercher")

If Nom <> "" Then

For Each Sh In ThisWorkbook.Sheets

Set c = Sh.Cells.Find(Nom, LookIn:=xlValues, lookat:=xlWhole)

If Not c Is Nothing Then

Sh.Activate

c.Select

firstAddress = c.Address

End If

Next Sh

End If

End Sub

Merci d'avance

Cordialement

Galiax

Bonjour,

a priori:

Nom = InputBox("Saisir le N° de semaine à rechercher ", "Rechercher")
If Nom <> "" Then
   With ActiveSheet 'ou With worksheets("Feuil1")
         Set c = .Cells.Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
         If Not c Is Nothing Then
             c.Select
               'firstAddress = c.Address <= inutile puisque non utilisé
        End If
    End With
End If

A+

Super, cela fonctionne, merci bcp

A+