dans un userform j'ai 4 textbox je voudrais faire
l'operation suivante
textbox1 + textbox2 -textbox3 et faire afficher dans le
textbox4 le resultat et bien sur en temps reel
c'est possible ????
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
J-Dan
bonjour Ptifred,
une solution :
Private Sub TextBox1_AfterUpdate() Calcul End Sub
a repeter pour TextBox2 et 3 et :
Sub Calcul() On Error GoTo NoCalcul n1 = IIf(TextBox1 <> "", TextBox1, 0) n2 = IIf(TextBox2 <> "", TextBox2, 0) n3 = IIf(TextBox3 <> "", TextBox3, 0) TextBox4.Text = CDbl(n1) + CDbl(n2) - CDbl(n3) Exit Sub NoCalcul: TextBox4 = 0 End Sub
Le On Error gere (ou plutot botte en touche !) pour les entrees texte
J-Dan
-----Message d'origine----- d'abord merci a tout ceux qui repondent
dans un userform j'ai 4 textbox je voudrais faire l'operation suivante textbox1 + textbox2 -textbox3 et faire afficher dans le textbox4 le resultat et bien sur en temps reel c'est possible ????
merci a tous
ptifred .
bonjour Ptifred,
une solution :
Private Sub TextBox1_AfterUpdate()
Calcul
End Sub
a repeter pour TextBox2 et 3
et :
Sub Calcul()
On Error GoTo NoCalcul
n1 = IIf(TextBox1 <> "", TextBox1, 0)
n2 = IIf(TextBox2 <> "", TextBox2, 0)
n3 = IIf(TextBox3 <> "", TextBox3, 0)
TextBox4.Text = CDbl(n1) + CDbl(n2) - CDbl(n3)
Exit Sub
NoCalcul:
TextBox4 = 0
End Sub
Le On Error gere (ou plutot botte en touche !) pour les
entrees texte
J-Dan
-----Message d'origine-----
d'abord merci a tout ceux qui repondent
dans un userform j'ai 4 textbox je voudrais faire
l'operation suivante
textbox1 + textbox2 -textbox3 et faire afficher dans le
textbox4 le resultat et bien sur en temps reel
c'est possible ????
Sub Calcul() On Error GoTo NoCalcul n1 = IIf(TextBox1 <> "", TextBox1, 0) n2 = IIf(TextBox2 <> "", TextBox2, 0) n3 = IIf(TextBox3 <> "", TextBox3, 0) TextBox4.Text = CDbl(n1) + CDbl(n2) - CDbl(n3) Exit Sub NoCalcul: TextBox4 = 0 End Sub
Le On Error gere (ou plutot botte en touche !) pour les entrees texte
J-Dan
-----Message d'origine----- d'abord merci a tout ceux qui repondent
dans un userform j'ai 4 textbox je voudrais faire l'operation suivante textbox1 + textbox2 -textbox3 et faire afficher dans le textbox4 le resultat et bien sur en temps reel c'est possible ????
merci a tous
ptifred .
Hervé
Salut Frédérick, Essai ceci si cela te convient. A mettre dans le module de ta form :
Private Sub TextBox1_Change() Total End Sub Private Sub TextBox2_Change() Total End Sub Private Sub TextBox3_Change() Total End Sub Sub Total() TextBox4 = Val(TextBox1) + Val(TextBox2) - Val(TextBox3) End Sub
Hervé.
"ptifred" a écrit dans le message de news: 792901c476cb$844cf090$
d'abord merci a tout ceux qui repondent
dans un userform j'ai 4 textbox je voudrais faire l'operation suivante textbox1 + textbox2 -textbox3 et faire afficher dans le textbox4 le resultat et bien sur en temps reel c'est possible ????
merci a tous
ptifred
Salut Frédérick,
Essai ceci si cela te convient. A mettre dans le module de ta form :
Private Sub TextBox1_Change()
Total
End Sub
Private Sub TextBox2_Change()
Total
End Sub
Private Sub TextBox3_Change()
Total
End Sub
Sub Total()
TextBox4 = Val(TextBox1) + Val(TextBox2) - Val(TextBox3)
End Sub
Hervé.
"ptifred" <frederick.lefebvre@tele2.fr> a écrit dans le message de news:
792901c476cb$844cf090$a601280a@phx.gbl...
d'abord merci a tout ceux qui repondent
dans un userform j'ai 4 textbox je voudrais faire
l'operation suivante
textbox1 + textbox2 -textbox3 et faire afficher dans le
textbox4 le resultat et bien sur en temps reel
c'est possible ????
Salut Frédérick, Essai ceci si cela te convient. A mettre dans le module de ta form :
Private Sub TextBox1_Change() Total End Sub Private Sub TextBox2_Change() Total End Sub Private Sub TextBox3_Change() Total End Sub Sub Total() TextBox4 = Val(TextBox1) + Val(TextBox2) - Val(TextBox3) End Sub
Hervé.
"ptifred" a écrit dans le message de news: 792901c476cb$844cf090$
d'abord merci a tout ceux qui repondent
dans un userform j'ai 4 textbox je voudrais faire l'operation suivante textbox1 + textbox2 -textbox3 et faire afficher dans le textbox4 le resultat et bien sur en temps reel c'est possible ????