Aide pour somme avec textbox

Résolu
atoutal Messages postés 19 Date d'inscription lundi 7 juin 2004 Statut Membre Dernière intervention 9 novembre 2013 - 19 déc. 2006 à 18:27
drikce06 Messages postés 2237 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 - 20 déc. 2006 à 09:21
bonsoir avec une forme1 et 3 textbox pour un affichage direct dans la textbox3 mon code fonctionne pas le voila
Private Sub Text3_text()
Text3.Text = Text1.Text + Text2.Text
End Sub
merci pour l'aide

9 réponses

atoutal Messages postés 19 Date d'inscription lundi 7 juin 2004 Statut Membre Dernière intervention 9 novembre 2013
19 déc. 2006 à 20:09
merci je vais etudie cela avec reponse accepté
3
Utilisateur anonyme
19 déc. 2006 à 18:33
Salut,
Ben on ne peut pas additioner du texte :



Private Sub Text3_text()
  Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub






__________
Kenji
0
atoutal Messages postés 19 Date d'inscription lundi 7 juin 2004 Statut Membre Dernière intervention 9 novembre 2013
19 déc. 2006 à 19:03
desolé le code donné par charles ne fonctionne pas repris par copier coller
0
Utilisateur anonyme
19 déc. 2006 à 19:30
Ben, il faut aussi que tu appelle la fonction.





__________
Kenji
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
19 déc. 2006 à 19:38
Private Sub Text3_text()



n'est tout simplement pas une procédure d'événement ... et elle ne se déclenchera donc pas seule ...

Essaye avec ce que tu veux (un bouton de commande Command1, par exemple) :

Private Sub Command1_Click()
   Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Mais il s'agit là des notions de base les plus élémentaires !
0
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 1
19 déc. 2006 à 19:43
Violent Ken

Salut, pour être tout à fait rigoureux :

Private Sub Command1_Click()
   Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))
End Sub

@+
0
atoutal Messages postés 19 Date d'inscription lundi 7 juin 2004 Statut Membre Dernière intervention 9 novembre 2013
19 déc. 2006 à 19:57
ok avec le command1_click je sais faire et testé mais pour ne pas avoir le boutton
peut on le faire
"Mais il s'agit là des notions de base les plus élémentaires "vrai mais pour moi dur quand je coince sur des petits pb pour certains la je demande apres avoir pris 2 aspiri..... mais merci pour l'aide
Atoutal  "super novice"
0
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 1
19 déc. 2006 à 19:59
Violent Ken

Tiens :

1) tu copies çà dans le code de ta form par exemple :

Public Sub MakeSum()   'ceci est une procédure publique
   Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))
End Sub

2) tu effectues la somme en écrivant ceci :
Call MakeSum()

@+
0
drikce06 Messages postés 2237 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 11
20 déc. 2006 à 09:21
Salut, pour compléter la solution de 523601 violent_ken

Public Sub MakeSum()   
   Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))
End Sub

Text1_change()
Call MakeSum()
End Sub

Text2_change()
Call MakeSum()
End Sub

Mais attention tout de même à ce que tu ais des valeurs numériques dans les TextBox, sinon erreur!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
0