Private Sub ListBox10_Click()
Dim ligne As Long, Nbre As Integer, i As Byte
Label19.Caption = "Saisir Qté"
CommandButton101.Visible = False
CommandButton5.Visible = True
Set Result = [Tab_1[ID]].Find(ListBox10, LookIn:=xlValues, lookat:=xlWhole)
position = Result.Row - [Tab_1].Row + 1
Set Result = [Tab_1[ID]].Find(ListBox10, LookIn:=xlValues, lookat:=xlWhole)
position = Application.Match(ListBox10, [Tab_1[ID]], 0)
ComboBox10 = [Tab_1].Item(position, 2)
Me.lblID.Caption = [Tab_1].Item(position, 1)
For i = 1 To 3
Controls("TextBox" & i) = [Tab_1].Item(position, i + 2)
Next i
TextBox4 = [Tab_1].Item(position, 6)
TextBox5 = Format([Tab_1].Item(position, 7), "0.00 €")
TextBox6 = [Tab_1].Item(position, 9)
TextBox10 = [Tab_1].Item(position, 10)
ComboBox2 = [Tab_1].Item(position, 4)
ComboBox12 = [Tab_1].Item(position, 4)
If Not IsError(Application.Match(TextBox1, [Tab_S[Désignation]], 0)) Then
position = Application.Match(TextBox1, [Tab_S[Désignation]], 0)
TextBox45 = [Tab_S].Item(position, 2)
Label109.Visible = True
TextBox45.Visible = True
Label114.Visible = True
Label114.ForeColor = vbRed
Me.MultiPage1.Value = 5
Else
Me.ListBox10.ListIndex = -1
Label109.Visible = False
TextBox45.Visible = False
Label114.Visible = False
Label114.ForeColor = vbRed
Me.MultiPage1.Value = 0
End If
End Sub