Sur un frm j'ai mis une "combo box" dans la quelle il=20
faut saisir un code de 4 chiffres.
Juste =E0 c=F4t=E9 j'ai mis un "bouton de commande".
Donc je saisie un code dans la combobox, je fais soit=20
1) deux fois "enter" et le code va s'inscrire dans=20
une "label",=20
2) "tab" + "enter" et le code va s'inscrire dans=20
une "label"
et le setfocus revient sur cette combo box en mettant la=20
value =E0 "" afin de permettre de saisir un nouveau code...
Or, est-il possible de faire une seule fois =AB enter =BB ?
"daniely" a écrit dans le message de news:bf7a01c479e3$a1739460$ Sur un frm j'ai mis une "combo box" dans la quelle il faut saisir un code de 4 chiffres. Juste à côté j'ai mis un "bouton de commande".
Donc je saisie un code dans la combobox, je fais soit 1) deux fois "enter" et le code va s'inscrire dans une "label", 2) "tab" + "enter" et le code va s'inscrire dans une "label" et le setfocus revient sur cette combo box en mettant la value à "" afin de permettre de saisir un nouveau code...
Or, est-il possible de faire une seule fois « enter » ?
Si pas clair, n'hésites pas de me le dire.
Salutations daniely
Bonsoir daniely,
Essaie ceci, En supposant que j'ai compris ta question :
'----------------------
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
"daniely" <nomail@merci.com> a écrit dans le message de news:bf7a01c479e3$a1739460$a501280a@phx.gbl...
Sur un frm j'ai mis une "combo box" dans la quelle il
faut saisir un code de 4 chiffres.
Juste à côté j'ai mis un "bouton de commande".
Donc je saisie un code dans la combobox, je fais soit
1) deux fois "enter" et le code va s'inscrire dans
une "label",
2) "tab" + "enter" et le code va s'inscrire dans
une "label"
et le setfocus revient sur cette combo box en mettant la
value à "" afin de permettre de saisir un nouveau code...
Or, est-il possible de faire une seule fois « enter » ?
"daniely" a écrit dans le message de news:bf7a01c479e3$a1739460$ Sur un frm j'ai mis une "combo box" dans la quelle il faut saisir un code de 4 chiffres. Juste à côté j'ai mis un "bouton de commande".
Donc je saisie un code dans la combobox, je fais soit 1) deux fois "enter" et le code va s'inscrire dans une "label", 2) "tab" + "enter" et le code va s'inscrire dans une "label" et le setfocus revient sur cette combo box en mettant la value à "" afin de permettre de saisir un nouveau code...
Or, est-il possible de faire une seule fois « enter » ?
Si pas clair, n'hésites pas de me le dire.
Salutations daniely
papou
Bonjour aussi Un combobox n'est pas destiné nativement à recevoir des saisies, il prend généralement soit ses valeurs à partir de données situées dans une feuille (propriété RowSource), soit ses valeurs dans VBA (méthode AddItem). Il serait peut-être préférable de revoir ta méthode en remplaçant le contrôle par un Textbox et auquel cas je te propose ceci à placer dans le code du textbox : Private Sub TextBox1_Change() If Len(TextBox1) <> 4 Then Exit Sub Label1.Caption = TextBox1 TextBox1 = "" End Sub
Cordialement Pascal
"daniely" a écrit dans le message de news:bf7a01c479e3$a1739460$ Sur un frm j'ai mis une "combo box" dans la quelle il faut saisir un code de 4 chiffres. Juste à côté j'ai mis un "bouton de commande".
Donc je saisie un code dans la combobox, je fais soit 1) deux fois "enter" et le code va s'inscrire dans une "label", 2) "tab" + "enter" et le code va s'inscrire dans une "label" et le setfocus revient sur cette combo box en mettant la value à "" afin de permettre de saisir un nouveau code...
Or, est-il possible de faire une seule fois « enter » ?
Si pas clair, n'hésites pas de me le dire.
Salutations daniely
Bonjour aussi
Un combobox n'est pas destiné nativement à recevoir des saisies, il prend
généralement soit ses valeurs à partir de données situées dans une feuille
(propriété RowSource), soit ses valeurs dans VBA (méthode AddItem).
Il serait peut-être préférable de revoir ta méthode en remplaçant le
contrôle par un Textbox et auquel cas je te propose ceci à placer dans le
code du textbox :
Private Sub TextBox1_Change()
If Len(TextBox1) <> 4 Then Exit Sub
Label1.Caption = TextBox1
TextBox1 = ""
End Sub
Cordialement
Pascal
"daniely" <nomail@merci.com> a écrit dans le message de
news:bf7a01c479e3$a1739460$a501280a@phx.gbl...
Sur un frm j'ai mis une "combo box" dans la quelle il
faut saisir un code de 4 chiffres.
Juste à côté j'ai mis un "bouton de commande".
Donc je saisie un code dans la combobox, je fais soit
1) deux fois "enter" et le code va s'inscrire dans
une "label",
2) "tab" + "enter" et le code va s'inscrire dans
une "label"
et le setfocus revient sur cette combo box en mettant la
value à "" afin de permettre de saisir un nouveau code...
Or, est-il possible de faire une seule fois « enter » ?
Bonjour aussi Un combobox n'est pas destiné nativement à recevoir des saisies, il prend généralement soit ses valeurs à partir de données situées dans une feuille (propriété RowSource), soit ses valeurs dans VBA (méthode AddItem). Il serait peut-être préférable de revoir ta méthode en remplaçant le contrôle par un Textbox et auquel cas je te propose ceci à placer dans le code du textbox : Private Sub TextBox1_Change() If Len(TextBox1) <> 4 Then Exit Sub Label1.Caption = TextBox1 TextBox1 = "" End Sub
Cordialement Pascal
"daniely" a écrit dans le message de news:bf7a01c479e3$a1739460$ Sur un frm j'ai mis une "combo box" dans la quelle il faut saisir un code de 4 chiffres. Juste à côté j'ai mis un "bouton de commande".
Donc je saisie un code dans la combobox, je fais soit 1) deux fois "enter" et le code va s'inscrire dans une "label", 2) "tab" + "enter" et le code va s'inscrire dans une "label" et le setfocus revient sur cette combo box en mettant la value à "" afin de permettre de saisir un nouveau code...
Or, est-il possible de faire une seule fois « enter » ?
Si pas clair, n'hésites pas de me le dire.
Salutations daniely
daniely
Alors ça marche nickel bien: je peux saisir le code dans la combobox ensuite faire une fois seulement "enter" et le code va s'inscrire dans la lbl (vide) et le focus est tjrs dans la combobox qui est prête a recevoir un autre code...
Merci bcp
voilà le code de mon frm
If frmPositionLabo.lbl01Ok = "" Then frmPositionLabo.lbl01Ok = frmPositionLabo.cboPosition.Value frmPositionLabo.cboPosition = "" Cancel = True Exit Sub End If
Sinon tu vas à la lbl02Ok etc etc etc
-----Message d'origine-----
Bonsoir daniely,
Essaie ceci, En supposant que j'ai compris ta question :
'---------------------- Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
"daniely" a écrit dans le message de news:bf7a01c479e3$a1739460$
Sur un frm j'ai mis une "combo box" dans la quelle il faut saisir un code de 4 chiffres. Juste à côté j'ai mis un "bouton de commande".
Donc je saisie un code dans la combobox, je fais soit 1) deux fois "enter" et le code va s'inscrire dans une "label", 2) "tab" + "enter" et le code va s'inscrire dans une "label" et le setfocus revient sur cette combo box en mettant la value à "" afin de permettre de saisir un nouveau code...
Or, est-il possible de faire une seule fois « enter » ?
Si pas clair, n'hésites pas de me le dire.
Salutations daniely
.
Alors ça marche nickel bien:
je peux saisir le code dans la combobox ensuite faire une
fois seulement "enter" et le code va s'inscrire dans la
lbl (vide) et le focus est tjrs dans la combobox qui est
prête a recevoir un autre code...
Merci bcp
voilà le code de mon frm
If frmPositionLabo.lbl01Ok = "" Then
frmPositionLabo.lbl01Ok =
frmPositionLabo.cboPosition.Value
frmPositionLabo.cboPosition = ""
Cancel = True
Exit Sub
End If
Sinon tu vas à la lbl02Ok etc etc etc
-----Message d'origine-----
Bonsoir daniely,
Essaie ceci, En supposant que j'ai compris ta question :
'----------------------
Private Sub ComboBox1_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
"daniely" <nomail@merci.com> a écrit dans le message de
news:bf7a01c479e3$a1739460$a501280a@phx.gbl...
Sur un frm j'ai mis une "combo box" dans la quelle il
faut saisir un code de 4 chiffres.
Juste à côté j'ai mis un "bouton de commande".
Donc je saisie un code dans la combobox, je fais soit
1) deux fois "enter" et le code va s'inscrire dans
une "label",
2) "tab" + "enter" et le code va s'inscrire dans
une "label"
et le setfocus revient sur cette combo box en mettant la
value à "" afin de permettre de saisir un nouveau code...
Or, est-il possible de faire une seule fois « enter » ?
Alors ça marche nickel bien: je peux saisir le code dans la combobox ensuite faire une fois seulement "enter" et le code va s'inscrire dans la lbl (vide) et le focus est tjrs dans la combobox qui est prête a recevoir un autre code...
Merci bcp
voilà le code de mon frm
If frmPositionLabo.lbl01Ok = "" Then frmPositionLabo.lbl01Ok = frmPositionLabo.cboPosition.Value frmPositionLabo.cboPosition = "" Cancel = True Exit Sub End If
Sinon tu vas à la lbl02Ok etc etc etc
-----Message d'origine-----
Bonsoir daniely,
Essaie ceci, En supposant que j'ai compris ta question :
'---------------------- Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
"daniely" a écrit dans le message de news:bf7a01c479e3$a1739460$
Sur un frm j'ai mis une "combo box" dans la quelle il faut saisir un code de 4 chiffres. Juste à côté j'ai mis un "bouton de commande".
Donc je saisie un code dans la combobox, je fais soit 1) deux fois "enter" et le code va s'inscrire dans une "label", 2) "tab" + "enter" et le code va s'inscrire dans une "label" et le setfocus revient sur cette combo box en mettant la value à "" afin de permettre de saisir un nouveau code...
Or, est-il possible de faire une seule fois « enter » ?
