J'ai un petit probl=E8me dans ma userform. Cette userform est compos=E9e
de Textbox qui fonctionnent ensemble.
Il y a des textbox de "saisie" et des textbox de "calculs" qui
renvoient le montant saisie multipli=E9 par un autre montant.
Prenons un exemple pour illustrer mon probl=E8me :
Toutes les textbox on une valeur a 0
Lorsque que je saisie le chiffre 1 dans les textbox de "saisie" les
textbox de "calculs" ne fonctionnent pas (pas de changement).
Alors que lorsque je saisie le chiffre 11 (soit, 2 caract=E8res), les
textbox de "calculs" fonctionnent parfaitements.
D'autres part, si je supprime le 0 au d=E9part avec la touche "Suppr" de
mon clavier et que je saisie le chiffre 1, les textbox de "calculs"
fonctionnent =E9galement.....
Je ne comprends pas tr=E8s bien ce probl=E8me et je souhaiterai qu'a
chaque fois que je saisie un chiffre les textbox de "calculs"
calculent......
Peut-etre faudrait-il que j'arrive a placer un code de suppression
automatique des donn=E9es de la textbox au moment o=F9 je saisie
dedans......Je pense que mon probl=E8me vient du fait que les Textbox de
"calculs" ne reconnaissent pas de changement lorsque je saisie un seul
caract=E8re par dessus un autre......
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Utilise l'évènement Exit du textbox pour effectuer le calcul dans l'autre textbox : Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2 = TextBox1 * 2 End Sub
Cordialement Pascal
Bonjour
Utilise l'évènement Exit du textbox pour effectuer le calcul dans l'autre
textbox :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = TextBox1 * 2
End Sub
Bonjour Utilise l'évènement Exit du textbox pour effectuer le calcul dans l'autre textbox : Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2 = TextBox1 * 2 End Sub
Cordialement Pascal
venteprivee3
Merci Pascal pour cette réponse rapide... Je viens d'essayer ta manip a plusieurs reprises en effet cela aurait pu marcher, mais ca ne fonctionne toujours pas...... Je ne comprends vraiment pas......
Une autre idée ????
Merci Pascal pour cette réponse rapide...
Je viens d'essayer ta manip a plusieurs reprises en effet cela aurait
pu marcher, mais ca ne fonctionne toujours pas......
Je ne comprends vraiment pas......
Merci Pascal pour cette réponse rapide... Je viens d'essayer ta manip a plusieurs reprises en effet cela aurait pu marcher, mais ca ne fonctionne toujours pas...... Je ne comprends vraiment pas......
Une autre idée ????
Youky
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If TextBox1.Text = "" Then TextBox2 = "": Exit Sub If Not IsNumeric(TextBox1.Text) Then TextBox1 = "": Exit Sub TextBox2 = TextBox1 * 2 End Sub
ceci utilise l'évenement KeyUp Youky a écrit dans le message de news:
Merci Pascal pour cette réponse rapide... Je viens d'essayer ta manip a plusieurs reprises en effet cela aurait pu marcher, mais ca ne fonctionne toujours pas...... Je ne comprends vraiment pas......
Une autre idée ????
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
If TextBox1.Text = "" Then TextBox2 = "": Exit Sub
If Not IsNumeric(TextBox1.Text) Then TextBox1 = "": Exit Sub
TextBox2 = TextBox1 * 2
End Sub
ceci utilise l'évenement KeyUp
Youky
<venteprivee3@hotmail.fr> a écrit dans le message de news:
1144146248.812527.271070@i40g2000cwc.googlegroups.com...
Merci Pascal pour cette réponse rapide...
Je viens d'essayer ta manip a plusieurs reprises en effet cela aurait
pu marcher, mais ca ne fonctionne toujours pas......
Je ne comprends vraiment pas......
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If TextBox1.Text = "" Then TextBox2 = "": Exit Sub If Not IsNumeric(TextBox1.Text) Then TextBox1 = "": Exit Sub TextBox2 = TextBox1 * 2 End Sub
ceci utilise l'évenement KeyUp Youky a écrit dans le message de news:
Merci Pascal pour cette réponse rapide... Je viens d'essayer ta manip a plusieurs reprises en effet cela aurait pu marcher, mais ca ne fonctionne toujours pas...... Je ne comprends vraiment pas......
Une autre idée ????
venteprivee3
Bonjour, Désolé pour cette réponse tardive.... Merci beaucoup....ca fonctionne parfaitement maintenant.....!!!!! Vraiment merci Pierre-Yves
Bonjour,
Désolé pour cette réponse tardive....
Merci beaucoup....ca fonctionne parfaitement maintenant.....!!!!!
Vraiment merci
Pierre-Yves
