Recherche plusieurs valeurs Excel

spi

XLDnaute Nouveau
Bonjour,

Quelle serait la fonction ou matrice qui permet de renvoyer plusieurs valeur à partir d'une recherche dans un tableau?
La fonction vlookup ne permet de renvoyer qu'une seule valeur...

Nom Points
Albert 5
Tom 7
Albert 10
Pierre 0
Tom 12
Albert 2

PAr exemple, si je fais une recherche sur "Albert", j'aimerais avoir les valeurs 5 , 10 et 2 qui s'affichent dans 3 cellules.
Une idée?
Merci
 

merinos

XLDnaute Accro
Je ne comprends pas bien...

Ce que tu sembles demander est proche du tableau croisé dynamique...

Tu peux selectionner le client et voir combien de boites il a acheté par produit
 

Pièces jointes

  • TCD example.xlsx
    269.8 KB · Affichages: 92

spi

XLDnaute Nouveau
Je ne comprends pas bien...

Ce que tu sembles demander est proche du tableau croisé dynamique...

Tu peux selectionner le client et voir combien de boites il a acheté par produit

Merci, oui, c'est presque cela sauf que la cellule F3 doit être liée à une autre cellule.
Dans votre exemple, il faudrait que le tableau croisé dynamique s'affiche si dans la cellule F1 (par ex) se trouve "Claude". Cad pas de liste déroulante en F3.... est-ce possible?
Merci encore...
 

Jocelyn

XLDnaute Barbatruc
Bonjour le Forum,
Bonjour spi, merinos,

Si le TCD ne convient pas tu peux tester par formule matricielle voir fichier joint

Cordialement

EDIT : Bonjour Backhandshot, JHA, et Dugenou désolé pour la collision pas rafraichi
 

Pièces jointes

  • test spi.xlsx
    8.6 KB · Affichages: 135
Dernière édition:

Backhandshot

XLDnaute Occasionnel
Bonjour Forum et tous ceux qui ont participé à cette discussion
Tu peux voir le code en tapant Alt-F11 dans visual basic

Voici le code pour la fonction que tu places dans 1 module


Function Recherches_Multiples(ValeurRecherchee As Range, TableDeRecherche As Range, NumColonne As Integer, Separator As String) As Variant
Dim NbLignes As Integer
NbLignes = TableDeRecherche.Rows.Count
Dim CompteurValeursTrouvees As Integer
CompteurValeursTrouvees = 0

For i = 1 To NbLignes
If TableDeRecherche(i, 1).Value = ValeurRecherchee.Value Then
CompteurValeursTrouvees = CompteurValeursTrouvees + 1
If CompteurValeursTrouvees > 1 Then
Recherches_Multiples = Recherches_Multiples & Separator & TableDeRecherche(i, NumColonne).Value
Else
Recherches_Multiples = TableDeRecherche(i, NumColonne).Value
End If
End If
Next i

End Function


Ensuite dans ta liste de fonctions devrait apparaître cette fonction comme toutes les autres fonctions (RECHERCHEV, RECHERCHEH,NB.SI...) ensuite tu as juste à utiliser comme les autres fonctions normalement et recopier comme bon te semble.

Bonne journée
 

Discussions similaires

  • Question
Microsoft 365 Excel
Réponses
4
Affichages
244
Réponses
4
Affichages
169

Statistiques des forums

Discussions
312 198
Messages
2 086 107
Membres
103 120
dernier inscrit
83400ren