Microsoft 365 Fonction de Recherche de différents tableaux avec plusieurs résultats ?

[donatello2]

Bonjour,

Le titre est peu explicite et je m'en excuse mais voici ma problématique :

Je souhaiterais utiliser un tableau Excel faisant office d'outil de recherche qui lorsque l'on enterrerait un nom de famille, aille chercher par exemple les prénoms correspondant au nom de famille entré et cela dans 3 tableaux différents.

De plus, il faudrait que le résultat de ma recherche donne chacune des occurrences par exemple :

J'entre le nom "Dupont" dans la cellule dédié de mon tableau qui sert à la recherche et celui-ci me donne tout les prénoms des différents dupont de mes tableaux de donnée.

J'ai déjà tenté de faire fonctionner cela via des formules de Recherche (RechercheX) et en les rendant matricielle mais rien n'y fait je n'arrive pas à obtenir mes différents résultats escomptés.

Je vous remercie d'avance pour votre aide précieuse !

Cela peut être sous forme de formule ou VBA si cela est plus pratique à votre sens.

 

[sylvanu]

Bonjour Donatello,
Un petit fichier test serait plus simple pour répondre précisément.

 

[donatello2]

Bonjour Sylvanu,

Je viens de rapidement de créer un exemple de ce que je recherche.

Dans la première feuille, on retrouve la case dans lequel je souhaiterais que l'on rentre le nom d'un client dont on souhaite faire la recherche, et les champs à côtés ou les données des différentes bases apparaitraient.

A savoir que ma problématique réside que j'ai des homonymes et que je souhaite obtenir tout les résultats pour le même nom.

Disclaimer, dans un soucis de confidentialité, les données utilisées sont générées aléatoirement.

Merci d'avance !

 

[sylvanu]

Re,
Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [D6]) Is Nothing Then
         Bases = Array("Base de données client 1", "Base de données client 2", "Base de données client 3")
         Range("G6:G14,I6:I14,L6:L14").ClearContents
         If Target = "" Then Exit Sub Else Nom = Target
         Application.ScreenUpdating = False
         N = 0 ' Nombre de noms trouvés
         For B = 0 To 2
            T = Sheets(Bases(B)).[A1].CurrentRegion
            For L = 2 To UBound(T)
                If T(L, 1) = Nom Then
                    N = N + 1: Ligne = 2 * N + 4
                    Cells(Ligne, "G") = T(L, 2)
                    Cells(Ligne, "I") = T(L, 3)
                    Cells(Ligne, "L") = T(L, 4)
                End If
            Next L
         Next B
    End If
Fin:
End Sub

 

[donatello2]

Superbe !

Merci infiniment Cher Sylvanu.

Si les bases de données se situent dans 3 autres tableaux respectifs, comment les appeler via la macro? Il suffit de remplacer simplement la ligne Bases = Array et de donner le nom du fichier+feuille ?

 

[sylvanu]

Je ne comprends pas la question.
La macro traite déjà les 3 bases de données.
essayez cette PJ avec nom Essai, il y a nom "essai" dans chaque base.

 

[Cousinhub]

Bonjour,
Hello Sylvanu
Si je comprends :

et de donner le nom du fichier+feuille ?

Les bases seraient dans 3 fichiers autres.
Sont-ils enregistrés dans le même répertoire? Quels noms? (est-ce qu'ils commencent par les mêmes lettres?)
Combien d'onglets?
Bref, je pense qu'il faut quelques renseignements supplémentaires.

 

[donatello2]

Bonjour CousinHub,
Effectivement c’est bien cela.
Les 3 bases sont dans 3 fichiers Excel distincts se nommant : Toad 20-21, Toad 22-23 et Toad 24-25 dans des feuilles « sheet 1 ».
Les bases seraient toutes dans le même répertoire que le tableau.

 

[Cousinhub]

Bonjour,
Un essai avec Power Query (nativement installé dans ta version d'Excel)
Je suis donc parti du principe : 3 fichiers commençant par Toad (tu pourras en rajouter, pas de soucis), dont l'onglet contenant la base de données se nomme "sheet 1" (attention à la casse), et dont les titres sont identiques.
Dans le fichier joint, dans l'onglet "Paramètre", tu entres le chemin entier du répertoire contenant ces fichiers.
Puis, dans l'onglet "Recherche client", dans la cellule D6, tu entres le nom du client.
Un clic sur le bouton "Actualiser tout" du ruban "Données" te donnera la liste des clients ayant le même patronyme. (la 1ère recherche peut prendre 2 à 3 secondes, le temps d'établir les connexions avec les fichiers de données, ensuite c'est quasi-immédiat)
Si ça te convient.

 

[sylvanu]

Bonjour à tous les deux,
Un essai en PJ en VBA avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [D6]) Is Nothing Then
         Bases = Array("Toad 20-21", "Toad 22-23", "Toad 24-25")
         Range("G6:G14,I6:I14,L6:L14").ClearContents
         If Target = "" Then Exit Sub Else Nom = LCase(Target)
         Application.ScreenUpdating = False
         N = 0 ' Nombre de noms trouvés
         Chemin = ThisWorkbook.Path & "\"
         For B = 0 To 2
            Fichier = Chemin & Bases(B) & ".xlsx"
            If Dir(Fichier) = "" Then MsgBox "Le fichier " & Bases(B) & " n'existe pas.": Exit Sub
            Workbooks.Open Fichier
            T = Sheets(1).[A1].CurrentRegion
            ActiveWorkbook.Close
            For L = 2 To UBound(T)
                If LCase(T(L, 1)) = Nom Then
                    N = N + 1: Ligne = 2 * N + 4
                    Cells(Ligne, "G") = T(L, 2)
                    Cells(Ligne, "I") = T(L, 3)
                    Cells(Ligne, "L") = T(L, 4)
                End If
            Next L
         Next B
    End If
Fin:
End Sub

Cela suppose que les trois bases sont des fichiers xlsx et rangés dans le même répertoire que ce fichier.

 

[donatello2]

Bonjour Sylvanu,

Je te remercie de ta réponse !

J'ai essayé ton code VBA avec mes trois bases dans le même répertoire, cela n'affiche plus les résultats dans le tableau mais ouvre à la place le tableau ou le premier résultat concordant est trouvé.

Est-ce normal ? Qu'en penses-tu ?

 

[donatello2]

Bonjour CousinHub,

Malheureusement, l'administrateur du réseau dans mon organisation ne permet pas l'utilisation de Power Query même si la solution que tu m'as apporté semble très intéressante !

Désolé encore!

 

[sylvanu]

Bonjour à tous les deux,,
Cela m'étonnes. Je ne vois que le format des fichiers analysés qui pourraient poser problème, et le "On error goto" arrêterait la macro.
En PJ 4 fichier.
Poser les sur le bureau et lancer Classeur1(2). Chez moi j'obtiens ça :

Dans la macro j'ai supprimé ce "on error goto", peut être cela nous aiguillera.
( en particulier je vais en Feuil(1), existe t elle dans vos fichiers ? )

 

[donatello2]

Impeccable, cela fonctionne effectivement à merveille dorénavant!

Simple remarque, lorsque l'un des fichiers base de donnée est ouvert en arrière plan et que nous utilisons cette macro, cela est-il normal que la base de donnée se ferme aussitôt ?

En tout cas chapeau Sylvanu, grand merci !

 

[sylvanu]

cela est-il normal que la base de donnée se ferme aussitôt ?

Oui, car nulle part il est dit que ces bases seraient ouvertes.
Si on ne les ferme pas les 3 bases vont rester ouvertes.