Bonjour,
J'ai un problème avec mes combobox qui s’additionnent. Lorsque je sélectionne un chiffre dans un combobox, le suivant ne veut pas s'afficher. Si il y a des caractères, tout marche pourtant. Voici un modèle de mon code simplifié car j'ai 4 combobox qui s’auditionnent au total...
Si vous voulez un document pour visualiser, je peux vous l'envoyer.
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41 Option Explicit Dim f Private Sub UserForm_Initialize() Dim MonDico Dim C As Range Set f = Sheets("TEST") Set MonDico = CreateObject("Scripting.Dictionary") For Each C In Range(f.[A3], f.[A65000].End(xlUp)) MonDico(C.Value) = C.Value Next C Me.ComboBox1.List = MonDico.items End Sub Private Sub Combobox1_Change() Dim MonDico Dim C As Range Set MonDico = CreateObject("Scripting.Dictionary") For Each C In Range(f.[A3], f.[A65000].End(xlUp)) If C = Me.ComboBox1 Then MonDico(C.Offset(, 2).Value) = C.Offset(, 2).Value Next C Me.ComboBox2.List = MonDico.items Me.ComboBox2.ListIndex = -1 End Sub Private Sub ComboBox2_Change() Dim C As Range For Each C In Range(f.[A3], f.[A65000].End(xlUp)) If C = Me.ComboBox1 And C.Offset(, 2) = Me.ComboBox2 Then Msgbox "GOOD TEST" Exit For End If Next C End Sub
Merci pour vos réponses
Partager