Userform combobox diffrents classeurs
definitif
-
definitif -
definitif -
Bonjour,
Voilà je suis une grosse débutante en VBA...
J'ai crée un userform pour une liste de données qui sont dans le feuil2 et j'aimerai faire apparaitre l'userform grace un bouton dans la feuil1
Je ne sais pas quelle forme de code utiliser et ou le placer ???
Merci à tous ceux qui pourront m'aider
Voilà je suis une grosse débutante en VBA...
J'ai crée un userform pour une liste de données qui sont dans le feuil2 et j'aimerai faire apparaitre l'userform grace un bouton dans la feuil1
Je ne sais pas quelle forme de code utiliser et ou le placer ???
Merci à tous ceux qui pourront m'aider
A voir également:
- Userform combobox diffrents classeurs
- Fusionner des classeurs excel - Guide
- Combobox vba liste déroulante dynamique - Forum Excel
- Fermer userform vba - Forum Excel
- Userform excel mac - Forum VB / VBA
- Liste déroulant dynamique en cascade en VBA ✓ - Forum Excel
2 réponses
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?
