[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
Bonjour,

voici un code pour un userform :

Private Sub CommandButton1_Click()
With Sheets("feuil1")
.[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

Dans ce userform j'ai un combobox avec quatre choix.
feuil1
feuil2
feuil3
feuil4

Ces choix portent le même nom que les feuilles de mon classeur

Je voudrais savoir si je peux récupérer la valeur du combobox et l'inscrire dans la phrase
With Sheets("feuil1") du code userform
afin que les valeurs que je souhaite rentrer soit inscrites dans la bonne feuille.

Jusqu'à maintenant cela m'obligeais à créer 4 userform différents et je voudrais donc n'en créer qu'un qui s'adapte.

cela est il possible ?

merci d'avance



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
Salut le forum

Tu remplaces feuil1 par la valeur du Combobox
With Sheets(Me.Combobox1)

Mytå
0
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
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 ?
0
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
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 :

With Sheets(Me.ComboBox1.Value) 

Tu adaptes bien sûr le nom de ton ComboBox.
0
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
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 :)
0