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...


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
Si vous voulez un document pour visualiser, je peux vous l'envoyer.

Merci pour vos réponses