slt à tous
j'ai développé une macro:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub LBfournisseur_Click()
Dim cel As Range 'variable de boucle qui represente les elements de la feuil "recap" de la col article
Dim str As String 'variable de comparaison
LBarticle.Clear 'mise à zero de cette listbox
    str = LBfournisseur.Value 
    For Each cel In Worksheets("recap").Range("a2:a" & Worksheets("recap").Range("a" & Rows.Count).End(xlUp).Row)
        If cel = str Then 'si les éléments sont identiques
            With LBarticle
                .AddItem cel(1, 2) '1ere col
             End With
        End If
    Next cel 'on boucle
End Sub
le problème c'est que la listbox LBarticle m'affiche des doublons.
merci infiniment.