XL 2013 Générer une liste à partir de produits retenus

Jouxte

XLDnaute Occasionnel
Bonjour à toutes et tous,

Je n'ai pas la capacité de faire ce que je souhaite faire, aussi, je vous demande un sacré coup de main. Merci par avance pour votre aide.

J'ai dans un onglet une feuille tarif qui me donne la totalité des produits et de leurs conditionnements.
Je souhaite créer dans un onglet différent "Produits éligibles", une liste (en colonne C) de tous les conditionnements des produits repris en colonne A.
Ce n'est peut-être pas très clair. Je vous joins un tableau test.
 

Pièces jointes

  • Test.xlsx
    43.3 KB · Affichages: 12

chris

XLDnaute Barbatruc
Bonjour

Utiliser un filtre avancé, éventuellement automatisé par VBA
1648125328036.png

Ou éventuellement un pseudo TCD
1648125407060.png

Dans les 2 cas il est préférable de mettre les tarifs sous forme de tableau structuré
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Jouxte, Chris, JHA,
Une approche en VBA avec :
VB:
Sub Remplit()
    Application.ScreenUpdating = False
    DL = Sheets("Tarif").Range("A65500").End(xlUp).Row
    T = Sheets("Tarif").Range("A2:G" & DL)
    Range("C2:E65000").ClearContents: L = 2
    For i = 1 To Range("A65500").End(xlUp).Row
        Produit = Cells(i, "A")
        For j = 1 To UBound(T)
            If T(j, 2) = Produit Then
                Cells(L, "C") = T(j, 1)
                Cells(L, "D") = T(j, 2)
                Cells(L, "E") = T(j, 3)
                L = L + 1
            End If
        Next j
    Next i
End Sub
 

Pièces jointes

  • Test (22).xlsm
    45.1 KB · Affichages: 16

Jouxte

XLDnaute Occasionnel
Bonjour chris, JHA, sylvanu,

Merci pour vos réponses si rapides.
Vos propositions qui sont toutes efficaces. Je vais choisir la solution vba de sylvanu qui me parait la plus facile à mettre en œuvre dans le cadre d'un fichier beaucoup plus grand.
Merci encore.
 

Discussions similaires

Réponses
9
Affichages
165

Statistiques des forums

Discussions
312 231
Messages
2 086 455
Membres
103 216
dernier inscrit
LoshR7