Discussion :

[PaulG2B]

Bonjour,

J'ai lu pas mal de sujets traitant de la même problématique mais je n'arrive pas à m'en sortir, alors si quelqu'un pouvait me consacrer un peu de temps se serait sympa.
Je travaille à la base sur le fichier de Philippe Tulliez USERFORM, je l'adapte à mes besoins.

Voici mon problème :

Je dispose d'une première listBox à sélection unique qui possède des cases à cocher, elle est initialisée par le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub InitListBoxColor()
 With Me.lstColor
 .ColumnHeads = False: .ColumnCount = 1: .ColumnWidths = "3"
 .MultiSelect = fmMultiSelectSingle
 .ListStyle = fmListStyleOption
 .RowSource = Range("lstColor").Address(external:=True)
 End With
End Sub

La liste est stockée dans l'onglet "ParamList" colonne A sans doublons plage nommée lstColor

Il faut que j'alimente en fonction du choix effectué d'autres Listbox dont les données sont stockées également dans l'onglet "ParamList".
Chaque ListBox dispose de 2 colonnes, la première stock un Id avec doublons qui correspond au code Color et la seconde une liste de Valeurs également avec doublons (mais je pense que cela n'est pas important) qui sera affichées dans une seconde Listbox.
Voici une capture partielle de la zone :



La colonne B est sensée faire le lien avec la première Listbox, la colonne C alimente la seconde ListBox, plage nommée lstVu.

En soit ce n'est sans doute pas très compliqué pour la majeure partie d'entre vous mais je but sur des détails comme une source de données issue d'une plage définit,...bref je galère et comme j'aime bien comprendre ce que j'écris et ben j'ai du mal.

J'ai bien trouvé cela : http://excel.developpez.com/sources/...m#ComboCascade mais je n'arrive pas à tout décrypter pour l'adapter à mes besoins.

Merci d'avance si vous avez une piste.

[PaulG2B]

Et bien après recherches je pense que mes désirs dépassent largement mon niveau en vba, vais donc faire plus simple.
Du style classique combo puis listbox

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
16
Private Sub UserForm_Initialize()
  Set MonDico = CreateObject("Scripting.Dictionary")
  temp = [lstColor]
  For i = 1 To UBound(temp, 1)
    If Not MonDico.Exists(temp(i, 1)) Then MonDico.Add temp(i, 1), temp(i, 1)
  Next i
  Me.cbxColor.List = MonDico.items
End Sub
 
Private Sub cbxColor_Change()
  d = Application.Match(Me.cbxColor, [lstColor], 0)
  Me.ListBoxColor.Clear
  For i = d To d + Application.CountIf([lstColor], Me.cbxColor) - 1
    Me.ListBoxColor.AddItem Range("lstVu")(i)
  Next i
End Sub

[PaulG2B]

Bonjour,

J'ai adapté mon code mais un bug est apparu, je ne doute pas d'en être à l'origine mais je n'arrive pas à le corriger.

Voici donc mon code :

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
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub InitlstCouleur()
  Set ColorList = CreateObject("Scripting.Dictionary")
  temp = [ListeCouleur]
  For i = 1 To UBound(temp, 1)
    If Not ColorList.Exists(temp(i, 1)) Then ColorList.Add temp(i, 1), temp(i, 1)
  Next i
  Me.lstCouleur.List = ColorList.items
 With Me.lstCouleur
 .ColumnHeads = False: .ColumnCount = 1: .ColumnWidths = "3"
 .MultiSelect = fmMultiSelectSingle
 .ListStyle = fmListStyleOption
 .ListIndex = 0
 End With
End Sub
Private Sub InitlstRobeTeinte()
  d = Application.Match(Me.lstCouleur, [ListeCouleur], 0)
  Me.lstRobeTeinte.Clear
  If lstCouleur.ListCount <> 0 Then lstCouleur.ListIndex = 0
  For i = d To d + Application.CountIf([ListeCouleur], Me.lstCouleur) - 1
    Me.lstRobeTeinte.AddItem Range("ListeRobeTeinte")(i)
  Next i
 With Me.lstRobeTeinte
 .ColumnHeads = False: .ColumnCount = 1: .ColumnWidths = "3"
 .MultiSelect = fmMultiSelectSingle
 .ListStyle = fmListStyleOption
 End With
End Sub

J'ai besoin d'attribuer une sélection par défaut ( .ListIndex = 0) à la première ListBox pour que la seconde soit remplie. Mais une fois cela fait impossible en changeant le choix de la première ListBox d'influer sur la seconde qui reste figée ... il n'y aurait pas une sorte de ligne à ajouter style "si je clique dans dans la première ListBox ça modifie la seconde" ... tout un programme.

Merci d'avance pour vos lumières.