Recherche plusieurs valeurs d'après une valeur unique

**Franck76Dav** · 12/02/2019, 16h18

Bonjour à tous,

je reviens vers vous pour un sujet de recherche de plusieurs valeurs d'après la valeur d'une cellule. Je m'explique.

Dans une feuille j'ai un tableau de donnée comme ceci :

Code produit	Position	Quantité	Produit composant
PF001	10	1	P001
PF001	20	4	P002
PF001	30	5	I001
PF002	10	6	P001
PF002	20	10	P002
PF003	10	5	P001
PF003	20	20	I001
PF003	30	4	I002
P001	10	8	M001
P001	20	9	M002
P001	30	47	M003
P002	10	18	M004
I001	10	3	M005
I002	10	7	M003
I002	20	12	M004

Je souhaiterais lorsque je tape un code produit, par exemple, PF001 il me ressorte les produits composants ainsi que les quantités mais que la macro fasse de même pour les produit composant pour obtenir ceci :

Code produit : PF001

Colonne B	Colonne C	Colonne D
*P001		1
	M001	8
	M002	9
	M003	47
*P002		4
	M004	18
*I001		5
	M005	3

Sachant qu'il pourrait y avoir encore 2 à 3 colonne de plus.

Merci (encore) pour votre aide.

**Menhir** · 12/02/2019, 17h20

Tu places un filtre sur tes colonnes et tu obtiendras ça (et bien plus) en 2 secondes sans passer par du VBA.

Ou passer par un filtre avancé comme il t'a déjà été proposé : https://www.developpez.net/forums/d1...ne-fonction-d/

**Franck76Dav** · 12/02/2019, 17h55

Le problème est que je souhaite qu'il y ai un décale dans les colonnes pour les produit composant. Le filtre avancé peut-il le faire?

**Franck76Dav** · 13/02/2019, 09h49

Après plusieurs essais les filtres avancées ne me permet pas d'obtenir mon résultat. Existe-t-il un autre moyen via formule ou VBA ?

**bobby5169** · 13/02/2019, 09h56

Un tableau croisé dynamique est encore plus simple

Nom : TCD.JPG
Affichages : 171
Taille : 29,0 Ko

**Franck76Dav** · 13/02/2019, 10h14

Le problème est que la tableau croisé dynamique ne ressortira pas les produits composant du code produit initial mais juste sa "nomenclature". Je souhaiterais que tout se "déroule" jusqu'à arriver au stade où il n'y à pas de produit composant.

**Menhir** · 13/02/2019, 10h20

Envoyé par Franck76Dav

Le problème est que ....

Le problème, c'est que tu ne prends pas la peine de décrire clairement et avec précision ce que tu souhaites.
Dans ta première demande, tu n'as pas décris comment tu passes de ton premier tableau au second.

**Franck76Dav** · 13/02/2019, 11h00

Envoyé par Menhir

Le problème, c'est que tu ne prends pas la peine de décrire clairement et avec précision ce que tu souhaites.
Dans ta première demande, tu n'as pas décris comment tu passes de ton premier tableau au second.

Je comprends. Je vous transmets un fichier excel avec ce que je désire et j'espère sera plus explicite.

https://www.cjoint.com/c/IBnkawKGx1X

**Menhir** · 13/02/2019, 11h49

A lire : https://www.developpez.net/forums/d8...s-discussions/

**Franck76Dav** · 13/02/2019, 12h53

Autant pour moi. Je vous remets le fichier.

ValNutri.xlsx

**RyuAutodidacte** · 13/02/2019, 14h04

Bonjour,

y a t-il des doublons de "Produit Composant" pour un même "Code Produit" ?

**Franck76Dav** · 13/02/2019, 14h10

Envoyé par RyuAutodidacte

Bonjour,

y a t-il des doublons de "Produit Composant" pour un même "Code Produit" ?

Bonjour,

il n'y a pas de doublons de "Produit Composant" pour un même "Code Produit".

**RyuAutodidacte** · 13/02/2019, 14h25

Le but final est il vraiment d'obtenir la présentation du résultat en post 1 ou est il tout autre ??

**Franck76Dav** · 13/02/2019, 14h28

Le but final est vraiment d'obtenir le tableau N°2 du post 1 (ou présenté dans le classeur tableau de droite).

**Menhir** · 13/02/2019, 15h04

Envoyé par Franck76Dav

Autant pour moi. Je vous remets le fichier.

Dans ce cas, c'est que tu n'as pas compris le contenu du lien de mon post #9.

Envoyé par Franck76Dav

Le but final est vraiment d'obtenir le tableau N°2 du post 1 (ou présenté dans le classeur tableau de droite).

Comme tu ne nous as toujours pas décrit précisément les règles permettant de passer du tableau 1 au tableau 2...

**Franck76Dav** · 13/02/2019, 15h18

Bon alors j'explique.

Dans une Feuil1, j'ai 4 colonnes (de A1 à D1, par exemple) nommées "Code produit", "Position", "Quantité" et "Produit Composants".

Dans une Feuil2, je souhaiterais que lorsqu'un "Code Produit" est saisie dans une cellule (B1 par exemple), une macro s’exécute afin d'aller chercher dans mon tableau de la Feuil1, les "Produits Composants" ET les "Quantités" (qui s'insère dans la Feuil2 en D2 par exemple) MAIS que la macro aille rechercher les "Produits Composants" de mes "Produits Composants" (en effet mes "Produits Composants" peuvent être des "Code Produit" et de ce fait ressortir d'autres "Produit Composants) avec un décalage d'une colonne. Afin d'éviter qu'une boucle infinie se créer, les "Produits Composants" en M, E ou C ne possède pas de "Produits Composants" donc la macro passe à la ligne suivante de mes "Produits Composants" de mon "Code Produit" initiale en B1 de la Feuil2.

Est-ce suffisamment clair?

**mercatog** · 13/02/2019, 15h23

Bonjour

Récursivement

Données dans feuille BASE de A2: Dxxx

Résultats copiés dans feuille RESULTAT

A Adapter

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Explicit
Dim j As Long
Dim k As Byte
 
Sub Test()
Dim LastLig As Long, i As Long
Dim IniComp As String
Dim TBr(), TBb
 
IniComp = "112461"
j = 0
Erase TBr
With Worksheets("BASE")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastLig
        If .Range("A" & i) = IniComp Then
            TBb = .Range("A" & i & ":D" & LastLig)
            k = 1
            FindComp TBb, IniComp, TBr
            Exit For
        End If
    Next i
End With
 
With Worksheets("RESULTAT")
    .UsedRange.ClearContents
    .Range("A2").Resize(UBound(TBr, 2), 5) = Application.Transpose(TBr)
End With
MsgBox "terminé"
End Sub
 
 
Private Sub FindComp(ByVal Tb, ByVal Cp As String, ByRef Res())
Dim Tmp As String
Dim i As Long
Dim Nxt As Boolean
 
For i = 1 To UBound(Tb)
    If Tb(i, 1) = Cp Then
        j = j + 1
        Tmp = Tb(i, 4)
        ReDim Preserve Res(1 To 5, 1 To j)
        Res(k, j) = Tmp
        Res(5, j) = Tb(i, 3)
        If InStr("MCE", Left(Tmp, 1)) = 0 Then
            k = k + 1
            FindComp Tb, Tmp, Res
            k = k + IIf(Nxt, 0, -1)
        End If
    End If
Next i
Nxt = i < UBound(Tb)
End Sub

**Franck76Dav** · 13/02/2019, 16h25

Le code fonctionne parfaitement à un seul détail près est que la macro exécute plusieurs fois la commande, du coup je me retrouve avec les mêmes valeurs mais en plusieurs fois. A quel niveau du code dois-je intervenir?