alimenter deux combobox

**zine pef** · 04/07/2009, 01h54

Bonjour
je demande l'aide d'alimenté le premier combo de[A2:A65000] par catégorie sans doublant
et le second remplissait par les noms au choix du catégorie du premier combo1
j'espere que ma question est claire
merci

**laetitia** · 04/07/2009, 10h48

bonjour zine pef le forum dans ton exemple je vois pas 2 combobox?? je vois des labels
autrement pour alimenter sans doublons beaucoup de methodes je tant donne 2

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Dim c As Range
For Each c In Range("A1:a" & Range("A65536").End(xlUp).Row)
ComboBox1 = c
If ComboBox1.ListIndex = -1 And ComboBox1 <> "" Then ComboBox1.AddItem c
 Next c
End Sub

ou

Code :

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

1
2
3
4
5
6
7
8
9
Dim T, z As Variant, l As Object, i As Long
On Error Resume Next
Set l = CreateObject("Scripting.Dictionary")
T = Range("A1:a" & Range("A65536").End(xlUp).Row)
For i = LBound(T) To UBound(T)
l.Add T(i, 1), T(i, 1): Next
For Each z In l
If z <> "" Then ComboBox1.AddItem z
 Next

**zine pef** · 04/07/2009, 13h03

bonjour laetitia ,bonjour forum
tu raison pour le fichier j'ai tromper , et j'ai envoyé le vrai
merci pour le code ca marche pour le premier combo..
il reste pour le second combo
salut
j'ai changer le fichier

**Qwazerty** · 04/07/2009, 13h32

salut zine pef, l'amie Letie

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
Private Sub ComboBox1_Change()
Dim TheCell As Range
 
'On vide le combox2
ComboBox2.Clear
 
'On boucle sur le colonne A
For Each TheCell In Range("A1:a" & Cells(Rows.Count, "A").End(xlUp).Row)
    'Si le cellule ontient la meme valeur que le combox1
    If TheCell.Value = ComboBox1.Text Then
        'On ajoute le contenu de la cellule a droite de TheCell dans le combox2
        ComboBox2.AddItem TheCell.Offset(0, 1)
    End If
Next
End Sub