Discussion :

[xaviou99]

Bonjour, j'ai un problème avec mes combobox qui doivent s'aditionner en fonction de la sélection. Dans mon combobox 3, il marche mais j'ai le combobox 4 qui s'active ensuite alors qu'il devrait s'activer dans le combobox 4. Je ne sais pas comment vous l'expliquer donc j'ai glisser un exemple.
Merci de votre aide

[pijaku]

Bonjour,

Erreur d'inattention.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox3_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 And C.Offset(, 2) = Me.ComboBox2 And C.Offset(, 3) = Me.ComboBox3 Then _
         MonDico(C.Offset(, 4).Value) = C.Offset(, 4).Value
   Next C
   Me.ComboBox4.List = MonDico.items 'SUR CETTE LIGNE TU AVAIS ECRIS Me.ComboBox3.List
   Me.ComboBox4.ListIndex = -1
End Sub

[xaviou99]

Merci beaucoup, j'ai passé 3h à tout reprendre sans voir mon erreur.