Dim choix1()
Private Sub UserForm_Initialize()
Set f = Sheets("Don-Specialtte")
choix1 = f.Range("A3:F" & f.Range("A65536").End(xlUp).Row).Value
Me.ComboBox2.List = choix1
End Sub
Private Sub ComboBox2_Change()
Dim b()
tmp = UCase(Me.ComboBox2) & "*"
n = 0
For i = LBound(choix1) To UBound(choix1)
If UCase(choix1(i, 1)) Like tmp Or UCase(choix1(i, 2)) Like tmp Then
n = n + 1: ReDim Preserve b(1 To 6, 1 To n)
For k = 1 To 6: b(k, n) = choix1(i, k): Next k
End If
Next i
If n > 0 Then
Me.ComboBox2.Column = b
Me.ComboBox2.DropDown
Else
Me.ComboBox2.Clear
End If
End Sub
Private Sub ComboBox2_click()
Me.TextBox1 = Me.ComboBox2.Column(1)
Me.TextBox2 = Me.ComboBox2.Column(2)
Me.TextBox3 = Me.ComboBox2.Column(3)
Me.TextBox4 = Me.ComboBox2.Column(4)
Me.TextBox5 = Me.ComboBox2.Column(5)
End Sub