Bonjour,

Je suis confronté à un problème qui vous semblera surement extrêmement simple à réaliser.

Je m'explique : j'ai un fichier excel dans lequel j'ai un tableau comportant un grand nombre de ligne et colonne sur ma Feuil1.
Sur ma Feuil2 je voudrais pouvoir lancer une recherche qui ira parcourir les lignes de mon tableau en Feuil1 et m'afficher les multiples résultats dans un tableau

Exemple Feuil1
prénom      nom        Age
Jean        Dupont     44
Pierre      Durand     88
Pierre      Dupond     22
Sur ma Feuil2 je voudrais pouvoir afficher tous les informations concernant tous mes "Pierre" dans un tableau


Au niveau de la recherche je parviens à afficher le résultat mais seulement dans une cellule

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
24
25
26
Function rechercheX(ValeurRecherche As Range, TableRecherche As Range, NumColonne As Integer) As Variant
 
Dim NbLignes As Integer
NbLignes = TableRecherche.Rows.Count
 
Dim CompteurValeurTrouve As Integer
CompteurValeurTrouve = 0
 
For i = 1 To NbLignes
 
    If TableRecherche(i, 1).Value = ValeurRecherche.Value Then
        CompteurValeurTrouve = CompteurValeurTrouve + 1
 
            If CompteurValeurTrouve > 1 Then
 
                rechercheX = rechercheX & TableRecherche(i, NumColonne).Value
 
            Else
                rechercheX = TableRecherche(i, NumColonne).Value
            End If
 
    End If
 
Next i
 
End Function
Merci pour votre retour.