econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutModérateurDernière intervention23 décembre 200823 25 oct. 2004 à 08:03
Si Combo1 est ta ComboBox et Text1 ta TextBox, alors :
Private Sub Combo1_Click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub
Private Sub Form_Load()
Combo1.AddItem "titi1"
Combo1.AddItem "titi2"
Combo1.AddItem "titi3"
Combo1.AddItem "titi4"
Combo1.AddItem "titi5"
Text1.Text = ""
End Sub