[EXCEL2010] Question sur userform
Résolu/Fermé
ced3c
Messages postés
237
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
28 mai 2016
-
5 nov. 2011 à 22:00
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 5 nov. 2011 à 22:24
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 5 nov. 2011 à 22:24
A voir également:
- [EXCEL2010] Question sur userform
- Userform excel mac - Forum Excel
- Userform modal - Forum Excel
- Userform Petit ✓ - Forum VB / VBA
- Grandeur UserForm ✓ - Forum VB / VBA
- Userform vba récupérer valeur - Forum Excel
4 réponses
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
953
5 nov. 2011 à 22:12
5 nov. 2011 à 22:12
Salut le forum
Tu remplaces feuil1 par la valeur du Combobox
Mytå
Tu remplaces feuil1 par la valeur du Combobox
With Sheets(Me.Combobox1)
Mytå
ced3c
Messages postés
237
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
28 mai 2016
5
5 nov. 2011 à 22:19
5 nov. 2011 à 22:19
Merci pour ta réponse rapide
j'ai fais ce que tu m'as dit
Private Sub CommandButton1_Click()
With Sheets("Me.Combobox1")
.[B65536].End(xlUp).Offset(1, 0) = TextBox1.Value
.[C65536].End(xlUp).Offset(1, 0) = TextBox2.Value
.[D65536].End(xlUp).Offset(1, 0) = TextBox3.Value
.[E65536].End(xlUp).Offset(1, 0) = TextBox4.Value
.[F65536].End(xlUp).Offset(1, 0) = TextBox5.Value
.[G65536].End(xlUp).Offset(1, 0) = TextBox6.Value
End With
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub
mais il m'indique une erreur
erreur d'execution"9"
aurais tu une suggestion stp ?
j'ai fais ce que tu m'as dit
Private Sub CommandButton1_Click()
With Sheets("Me.Combobox1")
.[B65536].End(xlUp).Offset(1, 0) = TextBox1.Value
.[C65536].End(xlUp).Offset(1, 0) = TextBox2.Value
.[D65536].End(xlUp).Offset(1, 0) = TextBox3.Value
.[E65536].End(xlUp).Offset(1, 0) = TextBox4.Value
.[F65536].End(xlUp).Offset(1, 0) = TextBox5.Value
.[G65536].End(xlUp).Offset(1, 0) = TextBox6.Value
End With
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub
mais il m'indique une erreur
erreur d'execution"9"
aurais tu une suggestion stp ?
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 718
5 nov. 2011 à 22:20
5 nov. 2011 à 22:20
bonjour
Je ne comprends pas trop ta question car si tu avais codé ton idée tu aurais vu qu'elle devrait fonctionner. Il te suffit de le coder ainsi :
Tu adaptes bien sûr le nom de ton ComboBox.
Je ne comprends pas trop ta question car si tu avais codé ton idée tu aurais vu qu'elle devrait fonctionner. Il te suffit de le coder ainsi :
With Sheets(Me.ComboBox1.Value)
Tu adaptes bien sûr le nom de ton ComboBox.
ced3c
Messages postés
237
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
28 mai 2016
5
5 nov. 2011 à 22:24
5 nov. 2011 à 22:24
ca marche niquel
merci beaucoup à vous deux
Le code du userform à été pris sur le net, je ne connais pas le VB c'est pour cela que je ne savais pas du tout comment faire.
en tout ccas grand merci :)
merci beaucoup à vous deux
Le code du userform à été pris sur le net, je ne connais pas le VB c'est pour cela que je ne savais pas du tout comment faire.
en tout ccas grand merci :)