A voir également:
- Userform combobox diffrents classeurs
- Combobox vba ✓ - Forum VB / VBA
- Copier coller vba excel entre 2 classeurs ✓ - Forum VB / VBA
- Userform liste déroulante - Forum VB / VBA
- Combobox vba liste déroulante dynamique ✓ - Forum Excel
- Combobox javascript - Forum Javascript
2 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
8 juin 2009 à 14:52
8 juin 2009 à 14:52
Bonjour,
Si tu n'a pas changer les noms du bouton et de l'UserForm..
A+
Si tu n'a pas changer les noms du bouton et de l'UserForm..
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
A+
salut ,
le probléme c'est que avec ce code c'est que les données dans mon combobox1 ont disparu
voici mPrivate Sub ComboBox1_Change()
valeur = ComboBox1
lig = Columns(1).Find(valeur, Range("A65536")).Row
TextBox1.Value = Range("B" & lig).Value
TextBox2.Value = Range("C" & lig).Value
TextBox3.Value = Range("D" & lig).Value
End Sub
Private Sub UserForm_Activate()
ActiveSheet.Range("A1").Select
Do While ActiveCell <> ""
ComboBox1.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Un petit coup de main?
le probléme c'est que avec ce code c'est que les données dans mon combobox1 ont disparu
voici mPrivate Sub ComboBox1_Change()
valeur = ComboBox1
lig = Columns(1).Find(valeur, Range("A65536")).Row
TextBox1.Value = Range("B" & lig).Value
TextBox2.Value = Range("C" & lig).Value
TextBox3.Value = Range("D" & lig).Value
End Sub
Private Sub UserForm_Activate()
ActiveSheet.Range("A1").Select
Do While ActiveCell <> ""
ComboBox1.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Un petit coup de main?