remplissage combobox sous conditions

jammy17 · 31 Janvier 2009

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 · 31 Janvier 2009

Re : remplissage combobox sous conditions

Bonjour jammy17,

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

Code:

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 · 31 Janvier 2009

Re : remplissage combobox sous conditions

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

remplissage combobox sous conditions

jammy17

XLDnaute Occasionnel

Pièces jointes

skoobi

XLDnaute Barbatruc

jammy17

XLDnaute Occasionnel

Discussions similaires

remplissage combobox sous conditions

jammy17

XLDnaute Occasionnel

Pièces jointes

skoobi

XLDnaute Barbatruc

jammy17

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency