[EXCEL2010] Question sur userform
Résolu
ced3c
Messages postés
240
Statut
Membre
-
ced3c Messages postés 240 Statut Membre -
ced3c Messages postés 240 Statut Membre -
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
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
A voir également:
- [EXCEL2010] Question sur userform
- Userform excel mac - Forum Word
- Rafraichir données userform ✓ - Forum Excel
- Excel vba création de formulaire userform ajouter rechercher modifier facilement ✓ - Forum Excel
- Liste deroulante dans un Userform ✓ - Forum Excel
- Userform d'attente avec image GIF ✓ - Forum Excel
4 réponses
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 ?