Discussion :

[Angeoffi]

Bonjour à tous

j'ai un combobox (désignation) que je filtre en fonction d'une autre ( catégorie articles).

lorsque je choisis une valeur dans la catégorie articles, les valeurs correspondantes a la désignation s'affiche bien.

mon soucis est que lorsque je choisis à nouveau un autre catégorie d'articles, au lieu que les valeurs dans le combobox désignation soit celle uniquement celle de la nouvelle catégorie , les nouvelles valeurs viennent s'ajouter à celle déjà saisie.

voici le code que j'ai utilisé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub ComboArticles_Change()
 
Dim Lr As Long, i As Long
Dim f As Worksheet
Dim key As String
Set f = Sheets("Articles")
 
Me.ComboDesignation.ListIndex = -1
 
Lr = f.Range("a" & Rows.Count).End(xlUp).Row
key = Me.ComboArticles.Value
 
For i = 2 To Lr
 
    If key = f.Range("l" & i).Value Then
 
        Me.ComboDesignation.AddItem f.Range("B" & i).Value
 
    End If
Me.ComboDesignation.ListIndex = -1
 
Next i
Set f = Nothing
 
End Sub

Pj: le fichier exemple

merci d'avance pour vos différentes contributions
cordialement