Remplissage combobox dynamique selon checkbox

[Compress]

Bonjour à tous.
Dans une combobox_pieces_specifiques, je liste un ensemble de 70 pièces. Elles sont de deux types TC ou BIW. L'utilisateur va pouvoir traiter au cas par cas les pièces. Plutot que de mettre les 70 pièces je souhaitais rajouter de checkbox qui permettent à l'utilisateur de visualiser dans la combobox les pièces selon le type qu'il veut.

Mais il peut par exemple cocher TC puis traiter une pièce TC puis décocher TC et cocher BIW et visualiser seulement les pièces BIW.
Le problème est que je n'arrive pas à vider la combobox au changement des value de mes checkbox...
Je vous mets les deux sub que j'ai utilisé, le problème est donc qu'à chaque fois que l'utilisateur clique sur une checkbox, la combobox continue de se remplir (ce que je comprends avec le code que j'ai écrit).

Merci par avance de votre.
Voici le simple code que j'ai réalisé :

'Remplissage de la ComboBox des pièces spécifiques en fonction des checkbox TC ou BIW
Private Sub CheckBox_TC_change()
    Dim a
    With Sheets("Bilan Volume")
    If CheckBox_TC.Value = True Then
        For Each a In .Range(.Cells(28, 1), .Cells(72, 1))
            ComboBox_pieces_specifiques.AddItem a.Value
        Next
    End If
    End With
End Sub
'Remplissage de la ComboBox des pièces spécifiques en fonction des checkbox TC ou BIW
Private Sub CheckBox_BIW_change()
    Dim i
    With Sheets("Bilan Volume")
    If CheckBox_BIW.Value = True Then
        For Each i In .Range(.Cells(3, 1), .Cells(27, 1))
            ComboBox_pieces_specifiques.AddItem i.Value
        Next
    End If
    End With
End Sub

 

[bqtr]

Re : Remplissage combobox dynamique selon checkbox

Bonjour Compress,

Essaye ceci pour le premier cas:

'.../...
With Sheets("Bilan Volume")
   If CheckBox_TC.Value = True Then
        ComboBox_pieces_specifiques.Clear
        ComboBox_pieces_specifiques.List = .Range(.Cells(28, 1),   .Cells(72, 1)).Value
   End If
End With
'.../...

Tu peux supprimer la variable a

A+

 

[Compress]

Re : Remplissage combobox dynamique selon checkbox

Nickel j'aurai encore pu y penser par moi même, il me manque ces automatismes...

Merci bien en tout cas, c'est parfait !