[excel] textbox champs calculé

Résolu/Fermé
Signaler
Messages postés
38
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
6 juillet 2015
-
Messages postés
38
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
6 juillet 2015
-
Bonjour à tous,
J'ai créé un formulaire de saisie à faire remplir par un tiers.
J'ai 2 textbox (qui doivent recevoir des données numériques),
et ces 2 textbox doivent se sommer automatiquement dans une 3ème textbox.

Mon 1er problème est de convertir en numérique mes 3 textbox.
Mon 2ème est d'insérer le calcul dans la 3ème textbox.


Celui-ci qui se trouve dans un code attaché à un bouton validation marche:
textbox3.Text = CInt(CSng(textbox1.Text) + CSng(textbox2.Text))

mais j'aimerai que le total s'effectue avant la validation, lorsque l'on saisie les données
et que l'on clique ailleurs.

Merci beaucoup pour votre aide, j'en ai vraiment besoin!!
Zou

4 réponses

Messages postés
38
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
6 juillet 2015
5
Comme je suis la règle du site, je vais récapituler la solution :

Pour faire la somme de 2 textbox dans une 3ème et que le résultat apparaisse automatiquement en sortant des textbox :

Private Sub TextBox1_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

Private Sub TextBox2_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub


Ne pas oublier d'insérer ce code dans les 2 textbox!!

Pour exporter les résultats dans une feuille excel sous format numérique:

Val(TextBox1.Value)
Val(TextBox2.Value),...


Et toutes ces infos grâce à LePierre
Merci beaucoup à toi, tu m'as fait gagner un temps précieux
et surtout facillité le programme. De toute façon je n'aurai jamais trouvé toute seule!!

Bonne journée
6
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
333
bonjour

en supposant que tes TextBox sont :
TextBox1 : entrée 1ère valeur
TextBox2 : entrée 2ème valeur
TextBox3 : recevant le calcul
ajoute le code :

Private Sub TextBox1_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

Private Sub TextBox2_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

à plus
Messages postés
38
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
6 juillet 2015
5
J'ai oublié de cocher problème résolu, voir message précédent
Messages postés
38
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
6 juillet 2015
5
C'est géant...merci beaucoup...vraiment!!!

Il ne me reste plus qu'à trouver la solution pour convertir
les textbox en numérique quand les données de celles-ci
sont transférées dans une feuille excel.
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
333
bonjour

utilise la fonction Val()
tu peux t'inspirer de l'exemple ci dessous :

Sub test()
UserForm1.Show
x = Val(UserForm1.TextBox3.Value)
Cells(1, 1).Value = UserForm1.TextBox3.Value
Unload UserForm1
End Sub

tu récupère dans la variable x une valeur numérique avec Val()
et normalement tu récupères également une valeur dans la cellule A1

à plus