Auriez-vous une astuce ?
Private Sub ComboBox1_Change()
[E6] = Application.VLookup(ComboBox1, [A2:B5], 2, 0)
End Sub
Private Sub ComboBox1_Change()
Dim n As Variant
n = Application.VLookup(ComboBox1, [A2:B5], 2, 0)
[E6] = IIf(IsError(n), "", n)
End Sub
=SI(NB.SI(A2:A5;E6);RECHERCHEV(E6;A2:B5;2;0);"")