Posez votre question Signaler

[excel] textbox champs calculé [Résolu]

zook 34Messages postés 13 mai 2004Date d'inscription 16 mars 2011Dernière intervention - Dernière réponse le 31 mars 2008 à 10:56
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
Lire la suite 

[excel] textbox champs calculé »

5 réponses
Réponse
+1
moins plus
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
Ajouter un commentaire
Réponse
+0
moins plus
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
Ajouter un commentaire
Réponse
+0
moins plus
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.
LePierre- 28 mars 2008 à 16:40
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
Ajouter un commentaire
Réponse
+0
moins plus
J'ai oublié de cocher problème résolu, voir message précédent
Ajouter un commentaire
Ce document intitulé « [excel] textbox champs calculé » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?