Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then
With Sheets("bdarticle")
TextBox133 = .Cells(ComboBox1.ListIndex + 4, 8)
TextBox11 = .Cells(ComboBox1.ListIndex + 4, 9)
TextBox17 = .Cells(ComboBox1.ListIndex + 4, 10)
TextBox13 = .Cells(ComboBox1.ListIndex + 4, 13)
TextBox18 = .Cells(ComboBox1.ListIndex + 4, 14)
End With
Else
TextBox133 = ""
TextBox11 = ""
TextBox17 = ""
TextBox13 = ""
TextBox18 = ""
End If
End Sub