Aide pour somme avec textbox [Résolu]

Signaler
Messages postés
19
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
9 novembre 2013
-
drikce06
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
-
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

Messages postés
19
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
9 novembre 2013

merci je vais etudie cela avec reponse accepté
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
28
Salut,
Ben on ne peut pas additioner du texte :



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






__________
Kenji
Messages postés
19
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
9 novembre 2013

desolé le code donné par charles ne fonctionne pas repris par copier coller
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
28
Ben, il faut aussi que tu appelle la fonction.





__________
Kenji
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
20
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 !
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010

Violent Ken

Salut, pour être tout à fait rigoureux :

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

@+
Messages postés
19
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
9 novembre 2013

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"
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010

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()

@+
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
5
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: