Recherche dans toutes les feuilles

Version imprimable

Bonjour
J'ai des noms dans toutes les feuilles du classeur.
Je souhaiterais que la macro puisse trouver le nom écrit dans la combox et que le focus pointe autant de fois qu'il trouve le même nom et ceci dans toutes les feuilles du classeur, comme la fonction Edition Rechercher mais qui ne le fait que dans la feuille active.

J'ai essayé avec ce code, mais je ne comprends pas à partir de Cells.Find, les modifications qu'il faudrait faire.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Option Explicit Sub Rechercher() Dim X As Byte Dim Nom As String Nom = InputBox("Nom à chercher dans toutes les feuilles", "Rechercher") For X = 1 To Sheets.Count On Error Resume Next Sheets(X).Select Range("A1").Select Cells.Find(What:=Nom, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate MsgBox ActiveCell.Address Next X End Sub
Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Rechercher()
Dim Sh As Worksheet
Dim c As Range
Dim Nom As String, firstAddress As String
 
Nom = InputBox("Nom à chercher dans toutes les feuilles", "Rechercher")
If Nom <> "" Then
    For Each Sh In ThisWorkbook.Worksheets
        Set c = Sh.Cells.Find(Nom, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Sh.Activate
            c.Select
            firstAddress = c.Address
            Do
                MsgBox Sh.Name & "!" & c.Address
                Set c = Sh.Cells.FindNext(c)
                c.Select
            Loop While Not c Is Nothing And c.Address <> firstAddress
            Set c = Nothing
        End If
    Next Sh
End If
End Sub

11/11/2010, 18h55
Vadorblanc

Bonjour mercatog
C'est parfait
Un grand merci
Bien cordialement