Bonjour à tous !
Voilà comme l'indique le titre de mon post, je souhaiterais lier une selection faite dans une combobox avec une liste d'item lui correspondant. Du style: La combobox contient une catégorie de produits, et la listbox contient la sous-catégorie.
Voilà ce que j'ai commencé à faire... Mais ça marche pas trop. ça va chercher des données, mais ce ne sont pas les bonnes...
En gros dans la combobox, se trouve des éléments se trouvant dans la colonne A d'un fichier excel, et dans la listbox, il doit apparaitre des éléments se trouvants dans la colonne C...
Voilà mon bout de code, si quelqu'un voit une erreur s'il vous plait? Mes sous catégories sont fausses au moment de la selection de la catégorie via la combobox.
Merci d'avance ! Bonne journée
Voilà comme l'indique le titre de mon post, je souhaiterais lier une selection faite dans une combobox avec une liste d'item lui correspondant. Du style: La combobox contient une catégorie de produits, et la listbox contient la sous-catégorie.
Voilà ce que j'ai commencé à faire... Mais ça marche pas trop. ça va chercher des données, mais ce ne sont pas les bonnes...
En gros dans la combobox, se trouve des éléments se trouvant dans la colonne A d'un fichier excel, et dans la listbox, il doit apparaitre des éléments se trouvants dans la colonne C...
Voilà mon bout de code, si quelqu'un voit une erreur s'il vous plait? Mes sous catégories sont fausses au moment de la selection de la catégorie via la combobox.
Code:
Private Sub Userform_Activate()
..........................
..........................
..........................
'Récupère les données de la colonne A...
For j = 1 To Range("A65536").End(xlUp).Row
ComboBox3 = Range("A" & j)
'...et filtre les doublons
If ComboBox3.ListInde x = -1 Then ComboBox3.AddItem Range("A" & j)
Next j
End sub
Private Sub ComboBox3_Change()
Dim j As Integer
Me.ListSources.Clear
For j = 1 To Range("C65536").End(xlUp).Row
If Cells(j, 1) = ComboBox3.Value Then
Workbooks("TablesCesarv1.0.xls").Activate
Worksheets("Sheet1").Activate
Me.ListSources.AddItem Range("C" & j).Value
End If
Next j
End Sub
Merci d'avance ! Bonne journée