Additionner qu’une seul fois les textBox

[marcelio]

Bonjour le Forum,
Comme le dit mon titre, je voudrais faire juste une additionner de mes TextBox.
J'ai beau chercher mais je ne trouve pas la solution.
Le tout est expliqué dans le fichier joint.
Merci beaucoup de votre aide.
Marcelio

 

[Rouge]

Bonjour,
En reprenant votre exemple:
TextBox du haut : 100
j'y inscrit 11 cela me mets 112
C'est tout à fait normal, la textbox réagit à chaque changement de valeur ( Private Sub TextBox3_Change()) , donc dès la saisie du premier chiffre du (le premier 1 de la valeur 11), la textbox ajoute 1 à 100, ce qui fait 101, puis après la saisie du deuxième 1 pour faire 11, la textbox ajoute 11 au résultat précédent, ce qui fait bien 101 +11 = 112. C'est donc le "Private Sub TextBox3_Change())" qui ne convient pas. Essayez avec "Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)" qu'il faudra valider chaque fois par un clic sur le bouton "CommandButton1".
En espérant que cela convienne.
Cdlt

 

[marcelio]

Bonjour Rouge et le Forum,
Merci pour ce code qui fonctionne bien.
Mais est il possible de trouver un code qui ferait le calcul automatiquement, sans passer par le bouton.
et pour ma 1ère demande ( je voudrais faire juste une additionner de mes TextBox ) avez vous un code à me proposer.
Merci beaucoup pour votre aide.
Bon après midi à vous et au Forum.
Marcelio

 

[laetitia90]

bonjour tous 🙂

une methode ....ordre de tabulation sur le commandbutton1 au depart pour le focus important

Dim x'debut module
Private Sub TextBox3_Change()
TextBox14 = x + Val(TextBox3)
End Sub
Private Sub TextBox3_Enter()
x = Val(TextBox14)
End Sub
Private Sub TextBox4_Change()
TextBox15 = x + Val(TextBox4)
End Sub
Private Sub TextBox4_Enter()
x = Val(TextBox15)
End Sub
'ect...

apres on pourrait simplifier tout cela avec une classe mais bon!!! je sais pas ce que tu veus faire exactement🙁

 

[marcelio]

Bonjour laetitia90,
Merci pour ton code.
Après avoir cliquer sur le CommandButton, à la prochaine ouverture de l'USF la Textbox du haut prend le chiffre de la TextBox du bas.
Ce n'est pas trop ce que veux.
Si tu as une solution.
Merci
Marcelio

 

[Jacky67]

Bonjour,
Autre proposition...
Sans connaître la finalité de ce projet...
La validation des "textbox" de la deuxième rangée se fait par la touche
-Entrée
-Tabulation
-Sélection d'une autre box
-Le bouton validation
Le bouton validation confirme toutes les modifications

 

[marcelio]

Bonjour Rouge laetitia90 jacky67 et le Forum,
Merci à tous pour votre aide.
Jacky67 ton code fonctionne à merveille : merci
Mais j'aurais voulu savoir si tout simplement ont pouvais dire :
à l'ouverture de l' USF : si la TextBox3 est vide alors ont fait l'addition et ci celle ci est pleine ont ne fait l'addition.
Merci
Bonne journée à vous 3 et au Forum.
Marcelio

 

[Jacky67]

Bonjour Rouge laetitia90 jacky67 et le Forum,
Mais j'aurais voulu savoir si tout simplement ont pouvais dire :
à l'ouverture de l' USF : si la TextBox3 est vide alors ont fait l'addition et ci celle ci est pleine ont ne fait l'addition.
Marcelio

Ce n'est pas ce qui se produit ???
Bien sur cela ne peut fonctionner que sur une validation des Textbox et non pas sur la frappe de touche.
Cela a été expliqué plus haut dans ce fil par Rouge

 

[marcelio]

Re,
Ok super
Merci pour votre aide à tous.
Bon après midi.
Marcelio