Recherche des données en boucle et reporte les valeurs

Bonjour,

Je débute niveau macro. J' ai une base de données dans un fichier excel pour laquelle je voudrais effectuer une recherche en boucle ( tant qu'un résultat est trouvé).

Dans mon fichier j' ai une liste d’événements qualité en colonne A. Pour chaque événement qualité est rattaché en colonne C un ou plusieurs numéro de lot et en colonne B la description.

Je voudrais à partir d'une liste de lots définie lister sur une autre feuille tous les événements qualité concernés ainsi que la description.

Merci pour votre aide

bonjour,

voir en pièce jointe

A+

Sub retraitement_extraction()

' ...

With Sheets("Liste lot")
    der = .[A65000].End(xlUp).Row
    For numlot = 2 To der
        Colonne = 2
        For EQ = 2 To [A65000].End(xlUp).Row
            If Cells(EQ, 3) Like "*" & .Cells(numlot, 1) & "*" Then
                .Cells(numlot, Colonne) = Cells(EQ, 1)
                Colonne = Colonne + 1
            End If
        Next EQ
    Next
End With

End Sub

Il est aussi possible de le faire sans macro, en formule matricielle.

Edit = Bonjour Galopin, pas vu ta réponse cause coupure internet !

galopin01 a écrit :

bonjour,

voir en pièce jointe

A+

Merci beaucoup pour cette réponse rapide.

Je viens de tester et c'est exactement ça .

Steelson a écrit :

Sub retraitement_extraction()

' ...

With Sheets("Liste lot")
    der = .[A65000].End(xlUp).Row
    For numlot = 2 To der
        Colonne = 2
        For EQ = 2 To [A65000].End(xlUp).Row
            If Cells(EQ, 3) Like "*" & .Cells(numlot, 1) & "*" Then
                .Cells(numlot, Colonne) = Cells(EQ, 1)
                Colonne = Colonne + 1
            End If
        Next EQ
    Next
End With

End Sub

Il est aussi possible de le faire sans macro, en formule matricielle.

Edit = Bonjour Galopin, pas vu ta réponse cause coupure internet !

Merci également , je vais tester également