Discussion :

[Vadorblanc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vadorblanc]

Bonjour mercatog
C'est parfait
Un grand merci
Bien cordialement