Dim a1 As Range
Dim cherche1 As String
Private Sub ComboBox1_Change()
cherche1 = ComboBox1.Value
Set a1 = Sheets("feuil1").Range("A:A").Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlNext).Row
If a1 Is Nothing Then
ComboBox1.Text = Left(ComboBox1.Text, Len(ComboBox1.Text) - 1)
End If
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
cherche1 = ComboBox1.Value
Quantité.Text = ""
'recherchev
Set a1 = Sheets("feuil1").Range("A:A").Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext)
If Not a1 Is Nothing Then
Description = a1.Offset(0, 1).Value
Prix = a1.Offset(0, 3).Value
End If
End Sub