[excel] textbox champs calculé

Résolu
zook -  
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
Configuration: Windows XP
Internet Explorer 6.0

4 réponses

  1. zook Auteur
    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
    1. zook Auteur
      J'ai oublié de cocher problème résolu, voir message précédent
      1. zook Auteur
        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.
        1. LePierre
          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
      2. LePierre
        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