Matière Cummune pour Plusieurs Produits

Bonjour!

Je vous joins mon classeur comportant deux feuilles, l'une "MATRICE" contient les produits finis et leurs matières premières correspondante, sur la deuxième feuille "Commun" je voudrai afficher en colonne pour chaque matières premières tous les produits

finis lui correspondants. j’espère avoir été clair.

NB: on ne considère que les produits finis et les matières premières ayant en intersection des valeurs

Merci à Tous

Cordialement.

Bonsoir!

Est ce ma demande qui n'est pas réalisable ou je me suis mal expliqué?

Merci a tous.

Bonjour,

Si, si

eric

Bonjour eriiic !

Je te remercie pour ta réponse elle répond parfaitement a mes attentes.

Comme je ne suis pas trop fort en VB, existe t-il aussi une formule pour avoir le même résultat?

Merci encore.

Cordialement

Sans doute, mais pas pour moi.

Ca serait un truc imbuvable que tu comprendrais encore moins, et demanderait un temps plus que conséquent sans être sûr d'y arriver.

eric

Bonsoir!

Merci pour ta précieuse aide

Cordialement

Bonjour!

J'ai déjà eu une aide trés précieuse sur un probleme, sur le quel je reviens, je vous met mon classeur en pièce jointe et un exemple de ce que je veux sur la feuille corresp.

J'ai déjà une macro que je voudrai adapter à mon nouvel état en feuil nomenclature pour avoir le résultat sur la feuille corresp.

Si non à défaut de correction de ma macro, j'aurai aimer que ce soit fait avec une formule plutôt.

En fait je veux sur la feuille corresp avoir tous les produits qui utilisent la même matière première.

Merci à tous.

Cordialement.

Bonjour,

Option Explicit
Sub test()
Dim a, i As Long, j As Long, w()
    a = Sheets("NOMENCLATURE").[a6].CurrentRegion.Value
    With CreateObject("Scripting.Dictionary")
        For i = 7 To UBound(a, 1)
            For j = 4 To UBound(a, 2) - 1
                If a(i, j) <> "" Then
                    If Not .exists(a(i, 2)) Then
                        ReDim w(1 To 1, 1 To 1)
                    Else
                        w = .Item(a(i, 2))
                        ReDim Preserve w(1 To 1, 1 To UBound(w, 2) + 1)
                    End If
                    w(1, UBound(w, 2)) = a(2, j)
                    .Item(a(i, 2)) = w
                End If
            Next
        Next
        a = Sheets("Corresp").Range("a1").CurrentRegion.Value
        For i = 1 To UBound(a, 1)
            If .exists(a(i, 1)) Then
                Sheets("Corresp").Cells(i, 2).Resize(, UBound(.Item(a(i, 1)), 2)).Value = .Item(a(i, 1))
            End If
        Next
    End With
End Sub

klin89

Bonjour!

Je vous remercie Klin89, c'est parfait.

A bientôt .

Cordialement.