Bonjour.
Essaie :
Sub test()
   Dim c As Range
   Range("A1:B3").Select
   For Each c In Selection
       Var = InStr(1, c.Value, "this_word")
       If Var > 0 Then
           MsgBox c.Address
       End If
   Next c
End Sub

Hi,

You're on the french Excel Newsgroup.

However,for instance, with this program, you can search the word "toto" thru
2 sheets ("Feuil1" and "Feuil2")
In this example, the program will return all the cells's adresses that match
with the required word.
If you want a specific match, you've got to add the parameter
Lookat:=xlwhole in the instruction .Find(What:="toto") and turn in
.Find(What:="toto",lookat:=xlwhole)

For Each f In Sheets(Array("Feuil1", "Feuil2"))
    With f.Cells
        Set c = .Find(What:="toto")
        If Not c Is Nothing Then
            firstaddress = c.Address
            MsgBox c.Address
            Set c = .FindNext(c)
            Do While c.Address <> firstaddress And Not c Is Nothing
                MsgBox c.Address
                Set c = .FindNext(c)
            Loop
        End If
    End With

Regards

"Mathew" a écrit :

Écris donc en français, maudit colonisé.