Lister contenus plusieurs cellules dans un LABEL sous condition

bonjour le Forum,

bonjour à tous,

je cherche à lister dans un LABEL , un en dessous de l'autre, les contenus de plusieurs cellules en colonne B si (dans l'exemple joint) la valeur en E1 se trouve en colonne A.

j'arrive à trouver une seule donnée mais pas à les lister toutes.

merci d'avance pour votre aide.

Pedro

D.

Bonjour,

Private Sub CommandButton1_Click()
    Unload Me
End Sub
Private Sub Userform_Initialize()
For a = 2 To 10
    lot = Sheets("Feuil1").Range("E1")
    If Sheets("Feuil1").Range("A" & a) = lot Then Me.label1.Caption = Me.label1.Caption & Sheets("Feuil1").Range("B" & a) & vbCrLf
Next
End Sub

bonjour le forum

bonjour Steelson,

c'est exactement ce que je voulais, mes très sincères remerciements pour votre aide.

bien à vous.

Pedro Dudesson.