remplissage combobox sous conditions

[jammy17]

Salut à tous

voila mon ptit problème
j'ai une liste de nom dans la colonne A
j'ai une liste de lettre dans la colonne B correspondant au nom de type A, B C ou D
je voudrait qu'a l'affichage de mon userform joint, n'apparaisse dans la combobox que les noms ayant dans la colonne de B les lettre A ou B

 

[skoobi]

Re : remplissage combobox sous conditions

Bonjour jammy17,

je suppose que les noms doivent également apparaître qu'une seule fois dans la liste:

Private Sub UserForm_Initialize()
Dim choixcompte As Variant
Sheets("Feuil1").Activate
Set DicoNom = CreateObject("Scripting.Dictionary")
For Each Nom In Range("A2:A" & Range("A65536").End(xlUp).Row)
  If Not DicoNom.Exists(Nom.Value) And (Nom.Offset(0, 1).Value = "A" Or Nom.Offset(0, 1).Value = "B") Then DicoNom.Add Nom.Value, Nom.Value
Next
ComboBox1.List = DicoNom.items
End Sub

 

[jammy17]

Re : remplissage combobox sous conditions

merci, jva essayer de suite et jvous dit si ca marche!