Additionner qu’une seul fois les textBox

marcelio

XLDnaute Occasionnel
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
 

Pièces jointes

  • Faire l'addition qu'une fois.xls
    52 KB · Affichages: 37

Rouge

XLDnaute Impliqué
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
bonjour tous :)

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

VB:
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Faire l'addition qu'une fois (version 2).xlsm
    26.1 KB · Affichages: 32
Dernière édition:

marcelio

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
2
Affichages
310