Discussion :

[unitecnic]

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.

[Docmarti]

Bonjourunitecnic

Le plus simple est de sauvegarder les résultats au fur et à mesure sur une feuille

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
Function rechercheX(ValeurRecherche As Range, TableRecherche As Range, NumColonne As Integer) As Variant
 
Dim NbLignes As Integer
NbLignes = TableRecherche.Rows.Count
 
 Set FeuilDestination = ThisWorkbook.Worksheets("Feuil2")
 
Dim CompteurValeurTrouve As Integer
CompteurValeurTrouve = 0
 
For i = 1 To NbLignes
 
    If TableRecherche(i, 1).Value = ValeurRecherche.Value Then
        CompteurValeurTrouve = CompteurValeurTrouve + 1
 
        FeuilDestination.Cells(CompteurValeurTrouve, 1).Value = TableRecherche(i, NumColonne).Value
 
    End If
 
Next i
 
End Function

[unitecnic]

Bonjour,

Et merci Docmarti pour ton retour

dans ma feuille 2 lorsque je tape la formule

Code :

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

=rechercheX(C3;Feuil1!A2:B15;2)

Rien ne se passe, j'ai l'erreur #VALEUR! qui apparait.

Une idée ?

[Docmarti]

Bonjour unitecnic

Je croyais que tu voulais une fonction VBA et non une fonction personnalisée (c-a-d appelée à partir d'une formule).

On ne peut pas modifier une feuille à partir d'une fonction personnalisée. Donc la commande suivante produit une erreur:

Code :

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

FeuilDestination.Cells(CompteurValeurTrouve, 1).Value = TableRecherche(i, NumColonne).Value

[unitecnic]

Ma fonction marche.

C'est juste que je n'arrive pas à afficher les multiples résultats dans des cellules différentes (1 résultat / cellule).
J'arrive à séparer mes résultats avec une "," ou "/" ... mais seulement à l'intérieur d'une seule cellule.

[Docmarti]

Une formule affiche toujours le résultat dans une seule cellule, celle où se trouve la formule.
Pour afficher le résultat dans plusieurs cellules avec des formules, il faut une formule dans chaque cellule.

Est-ce que tu dois nécessairement utiliser une formule ou bien tu peux utiliser simplement VBA sans formule?