Bonjour,
voir PJ
Dim choix1()
Private Sub UserForm_Initialize()
choix1 = Application.Transpose([Ref_Sft])
Me.ComboBox1.List = choix1
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, choix1, 0)) Then
Me.ComboBox1.List = Filter(choix1, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
Me.TextBox1 = ""
Else
p = Application.Match(Me.ComboBox1, choix1, 0)
End If
End Sub
Private Sub OK_Click()
ActiveCell = Me.ComboBox1
ActiveCell.Offset(, 3) = Val(Me.TextBox1)
Unload Me
End Sub
Ceuzin