Bonjour le forum,
Voici le problème. Lorsque je sélectionne une valeur à l'aide d'un combobox, les textbox sont rempli avec la valeur en fonction du combobox. Je n'ai pas trouvé de solution sur le forum (mauvaise recherche de ma part ou mauvais mot clé) )))
J'ai essayé ceci sans succès :
Private Sub ComboBox1_DropButtonClick()
TextBox1.Value = ActiveCell.Offset(0, 2).Value
TextBox2.Value = ActiveCell.Offset(0, 3).Value
TextBox3.Value = ActiveCell.Offset(0, 4).Value
TextBox4.Value = ActiveCell.Offset(0, 5).Value
TextBox5.Value = ActiveCell.Offset(0, 6).Value
TextBox6.Value = ActiveCell.Offset(0, 7).Value
TextBox7.Value = ActiveCell.Offset(0, 8).Value
TextBox8.Value = ActiveCell.Offset(0, 9).Value
TextBox9.Value = ActiveCell.Offset(0, 10).Value
TextBox10.Value = ActiveCell.Offset(0, 11).Value
TextBox11.Value = ActiveCell.Offset(1, 2).Value
TextBox12.Value = ActiveCell.Offset(1, 3).Value
TextBox13.Value = ActiveCell.Offset(1, 4).Value
TextBox14.Value = ActiveCell.Offset(1, 5).Value
TextBox15.Value = ActiveCell.Offset(1, 6).Value
TextBox16.Value = ActiveCell.Offset(1, 7).Value
TextBox17.Value = ActiveCell.Offset(1, 8).Value
TextBox18.Value = ActiveCell.Offset(1, 9).Value
TextBox19.Value = ActiveCell.Offset(1, 10).Value
TextBox20.Value = ActiveCell.Offset(1, 11).Value
End Sub
Merci
Voici le problème. Lorsque je sélectionne une valeur à l'aide d'un combobox, les textbox sont rempli avec la valeur en fonction du combobox. Je n'ai pas trouvé de solution sur le forum (mauvaise recherche de ma part ou mauvais mot clé) )))
J'ai essayé ceci sans succès :
Private Sub ComboBox1_DropButtonClick()
TextBox1.Value = ActiveCell.Offset(0, 2).Value
TextBox2.Value = ActiveCell.Offset(0, 3).Value
TextBox3.Value = ActiveCell.Offset(0, 4).Value
TextBox4.Value = ActiveCell.Offset(0, 5).Value
TextBox5.Value = ActiveCell.Offset(0, 6).Value
TextBox6.Value = ActiveCell.Offset(0, 7).Value
TextBox7.Value = ActiveCell.Offset(0, 8).Value
TextBox8.Value = ActiveCell.Offset(0, 9).Value
TextBox9.Value = ActiveCell.Offset(0, 10).Value
TextBox10.Value = ActiveCell.Offset(0, 11).Value
TextBox11.Value = ActiveCell.Offset(1, 2).Value
TextBox12.Value = ActiveCell.Offset(1, 3).Value
TextBox13.Value = ActiveCell.Offset(1, 4).Value
TextBox14.Value = ActiveCell.Offset(1, 5).Value
TextBox15.Value = ActiveCell.Offset(1, 6).Value
TextBox16.Value = ActiveCell.Offset(1, 7).Value
TextBox17.Value = ActiveCell.Offset(1, 8).Value
TextBox18.Value = ActiveCell.Offset(1, 9).Value
TextBox19.Value = ActiveCell.Offset(1, 10).Value
TextBox20.Value = ActiveCell.Offset(1, 11).Value
End Sub
Merci
Dernière édition: