Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("bdd")
For i = 1 To 15
Me("label" & i) = f.Cells(1, i + 3).Value
Next i
Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In f.Range("A2:A" & f.Range("A" & Rows.Count).End(xlUp).Row)
MonDico(C.Value) = ""
Next C
temp = MonDico.keys
Call Tri(temp, LBound(temp), UBound(temp))
Me.ComboBox1.List = temp
Me.ComboBox2.Clear
End Sub
Private Sub ComboBox1_Change()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In f.Range("A2:A" & f.Range("A" & Rows.Count).End(xlUp).Row)
If C = Me.ComboBox1 Then MonDico(C.Offset(, 1).Value) = ""
Next C
temp = MonDico.keys
Call Tri(temp, LBound(temp), UBound(temp))
Me.ComboBox2.List = temp
Me.ComboBox2 = ""
Me.ComboBox3.Clear
raz
End Sub
Private Sub ComboBox2_Change()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In f.Range("A2:A" & f.Range("A" & Rows.Count).End(xlUp).Row)
If Me.ComboBox1 = C And Me.ComboBox2 = C.Offset(, 1) Then MonDico(C.Offset(, 2).Value) = ""
Next C
raz
Me.ComboBox3.List = MonDico.keys
Me.ComboBox3 = ""
End Sub
Private Sub ComboBox3_Change()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In f.Range("A2:A" & f.Range("A" & Rows.Count).End(xlUp).Row)
If Me.ComboBox1 = C And Me.ComboBox2 = C.Offset(, 1) And Me.ComboBox3 = C.Offset(, 2) Then
For i = 1 To 15
Me.Controls("TextBox" & i) = C.Offset(, i + 2).Value
Next i
End If
Next C
End Sub