Public X As Byte
Private Sub CommandButton1_Click()
End
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem ("-----------------"): ComboBox1.AddItem ("mada1"): ComboBox1.AddItem ("mada2"): ComboBox1.AddItem ("mada3")
ComboBox2.AddItem ("1"): ComboBox2.AddItem ("2"): ComboBox2.AddItem ("3")
End Sub
Private Sub Combobox1_Click()
Dim BASE(0 To 10)
BASE(0) = "--------------": BASE(1) = "99874.00": BASE(2) = "54782.00": BASE(3) = "42880.00"
TextBox1.Text = BASE(ComboBox1.ListIndex)
X = ComboBox1.ListIndex
Traitement
End Sub
Private Sub Combobox2_Click()
Traitement
End Sub
Private Sub Traitement()
Dim BASE(0 To 10)
Select Case X + 1
Case 2
BASE(0) = "--------------": BASE(1) = "123456.00": BASE(2) = "444888.00": BASE(3) = "957272.00"
TextBox2.Text = BASE(ComboBox2.ListIndex + 1)
Case 3
BASE(0) = "--------------": BASE(1) = "851278.00": BASE(2) = "823001.00": BASE(3) = "589723.00"
TextBox2.Text = BASE(ComboBox2.ListIndex + 1)
Case 4
BASE(0) = "--------------": BASE(1) = "957272.00": BASE(2) = "478235.00": BASE(3) = "369852.00"
TextBox2.Text = BASE(ComboBox2.ListIndex + 1)
Case Else
TextBox2.Text = ""
End Select
TextBox2.Text = BASE(ComboBox2.ListIndex + 1)
End Sub