XL 2019 rechercher un nom dans plusieurs fichiers

[Akafal50]

Bonsoir les amis

je souhaite rechercher un nom dans plusieurs fichiers ouverts
mon problème est que je ne voudrais pas rechercher un à un
cela est il possible?
ci-joint 3 fichiers dans lesquels je recherche le nom Dossi avec une seule opération
Merci pour votre assistance

 

[sylvanu]

Bonsoir Akafal,
Un essai en PJ avec :

Sub ChercherPartout()
Dim Nom$, Ligne%, i%, L%, Feuille$, Fichier$
Nom = [B1]: Ligne = 2: [E2:G1000].ClearContents
For i = 1 To Workbooks.Count
    Fichier = Workbooks(i).Name
    With Workbooks(Fichier)
        For Each F In Workbooks(Fichier).Sheets
            Feuille = F.Name
            If Application.CountIf(.Sheets(Feuille).Range("A:A"), Nom) > 0 Then
                L = Application.Match(Nom, .Sheets(F.Name).Range("A:A"), 0)
                Cells(Ligne, "E") = Fichier
                Cells(Ligne, "F") = Feuille
                Cells(Ligne, "G") = L
                Ligne = Ligne + 1
            End If
        Next F
    End With
Next i
End Sub

Le nom en B1 est recherché dans tous les fichiers ouverts et dans toutes les feuilles. Résultat en colonnes EFG.

 

[sylvanu]

Et si le nom peut apparaitre plusieurs fois en colonne A alors utilisez cette PJ modifiée avec :

            If Application.CountIf(.Sheets(Feuille).Range("A:A"), Nom) > 0 Then
                Lig = 1
                While .Sheets(F.Name).Cells(Lig, "A") <> ""
                    If .Sheets(F.Name).Cells(Lig, "A") = Nom Then
                        Cells(Ligne, "E") = Fichier
                        Cells(Ligne, "F") = Feuille
                        Cells(Ligne, "G") = Lig
                        Ligne = Ligne + 1
                    End If
                    Lig = Lig + 1
                Wend
            End If

 

[Akafal50]

Merci beaucoup
malheureusement, je ne suis pas très fort en VB.
j'ai essayé, je ne suis pas arrivé. d’où d’ailleurs le temps que j'ai mis à vous revenir

 

[sylvanu]

Bonjour Akafal
Essyez ainsi :
1- Vous ouvrez la PJ du post #3 et votre fichier
2- Vous faites ALT+F11 ( ou onglet Développeur puis Visual Basic ) ce qui ouvre l'éditeur basic.
3- Vous cliquez sur Module1 et sans relâcher le clic vous faites glisser dans votre fichier.

Dans votre fichier vous créez une forme via Insertion Forme, puis clic droit sur cette forme et Affecter une macro.
Dans "Macros dans" vous choisissez Ce classeur puis cliquez sur "ChercherPartout" puis OK

Enregistrez votre fichier en xlsm pour accepter les macros.
Normalement quand vous cliquez sur votre forme la macro s'exécute.
Et vous devriez obtenir :