Calcul avec TextBox

Re : Calcul avec TextBox

Bonsoir Gix

suis pas sur qu'il faille utiliser l'évènement change dans ce cas, car il se déclenche sur la saisie de chaque caractère, je verrais plus l'évènement "Exit" ou "AfterUpdate" dans ce cas...


sur ton test avec la fonction "IsNumeric", méfie toi un testbox renvoie une donnée texte (string), il y a leur de convertir avec la fonction "Val" ou "CDbl" comme ci dessous :

bonne soirée
@+

Re : Calcul avec TextBox

bonsoir Gix

vois si j'ai bien compris tes problemes

Re : Calcul avec TextBox

Bonsoir à tous, Pierrot, Pierre Jean,

Merci de m'avoir donné des idées, mais finalement je me rends compte que ce n'est pas aussi simple que ça.
Je vous fais passer le fichier qui me pose souci malheureusement je n'arrive pas à me débrouiller seul .

En effet ce que j'essaie de faire avec TBox c'est exactement la même chose que je possède en formule dans mon classeur ci-joint.
Vous verrez dans la macro CalculTB la méthode de calcul très certainement pas orthodoxe, alors si on peut faire autrement cela ne dérrange pas surtout si on peut supprimer TextBox13 et TextBox14.
Merci d'avance et au plaisir de vous lire.
Gix.

Re : Calcul avec TextBox

bonsoir Gix

une somme avec virgule*0.196 çà ne va pas
tu fais comme suit
dim MaTaxe as variant
MaTaxe=cdbl("0,196")'0,196 entre parenthèses
matva=masomme*mataxe
tu fais un contrôle des saisies sur les textbox ou tu fais des entrées

du code pour controler les saisies dans les textbox

'avec la virgule non valide (entier)
'contrôle caractère par caractère
Private Sub textBox1_Change()
On Error Resume Next

If Not IsNumeric(Right(TextBox1, 1)) Then
MsgBox "Le caractere saisi n'est pas valide"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End Sub

Vba

'avec la virgule valide(décimale)
'contrôle caractère par caractère
Private Sub textBox1_Change()
On Error Resume Next

If Not IsNumeric(Right(TextBox1, 1)) And Right(TextBox1, 1) <> "," Then
MsgBox "Le caractere saisi n'est pas valide"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End Sub


Un autre exemple pour autoriser uniquement la saisie de valeurs numériques dans un TextBox

'Auteur Didier MdF
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < 48, Is > 57
KeyAscii = 0
End Select
End Sub
si jai le temps demain je regarde ton fichier

à bientôt

Re : Calcul avec TextBox

bonjour Gix,Pierre-Jean,Pierrot
un double salut pour Pierre-Jean et Pierrot que j'ai oublié hier
formule consacrée:revu et corrigé
suggestion ajouter une colonne tva pour chaque article
à bientôt

Re : Calcul avec TextBox

bonjour Gix

salut bebere

un des problemes est que la macro textbox6_change est declanchée chaque fois que l'on modifie la valeur de textbox6
il faut donc l'encadrercommes suit
flag=True
Textobox6= quelquechose
flag=false
ensuite pour faire disparaitre les textbox13 et 14 je les ai remplaçées par des variables (il y apeut-etre plus simple !)

vois si cela te convient

re salut bebere

avais pas rafraichi

Re : Calcul avec TextBox

salut Pierre-Jean
chez moi çà bugue à la fin du code commandbutton1
je l'ai changé comme suit


Me.TBoxHT = Somme
Me.TBoxTVA = CDbl(TBoxHT) * CDbl("0,196")
Me.TBoxTTC = CDbl(TBoxHT) + CDbl(TBoxTVA)

Me.TBoxTVA = Format(TBoxTVA, "#,##0.00 €")
Me.TBoxHT = Format(TBoxHT, "#,##0.00 €")
Me.TBoxTTC = Format(TBoxTTC, "#,##0.00 €")

à bientôt

Re : Calcul avec TextBox

re

Simplifier pour simplifier je propose

Re : Calcul avec TextBox

Bonjour à vous tous, bébère , PierreJean

Merci mes amis pour vorte aide et je me rends compte de la difficulté de la tâche, sincèrement je ne voyais pas cela aussi compliqué.

Bébère, merci pour les tuyaux de ton post à 22h03, je les garde dans mes archives.
Concernant la proposition de ton fichier joint,il s'avère qu'il y a un petit problème, le résultat HT TB9 n'est pas juste il doit y avoir un problème de calcul, et si tu effectues les saisie dans le désordre ,le TB9 ne prend pas en compte les calculs.
Voilà pour ce test.

PierreJean,
il semble que ton fichier est presque OK, si on effectue la saisie dans un ordre logique, (réf, désig,qte, pu,r )par contre si on prend dans n'importe quel ordre il y a souci. Ex: On saisie tout en ordre , jusqu'à là c'est Ok, ensuite on se rend compte que l'on a fait mal tapé dans la case remise donc on rectifie, msgbox apparaît car c'est sur événement change à la limte c'est pas grave si on ne solutionne pas ce problème, donc on laisse le TB R% vide, on clique ensuite sur le bouton + et là Paff bogue idem pour TB7 PU si c'est dans le désorde.
Par contre TB6 QTE même si c'est dans le désorde même si on le laisse vide , ça laisse passer à savoir qu'il ne faut pas laisser passer.
Voilà pour ce test,Merci mille fois à vous deux ,à vous tous sans ce forum on n'y arrive pas seul .
Au plaisir de vous lire Gix.

Re : Calcul avec TextBox

Re:
C'est encore moi le casse pied 😀
Cherchez plus, je crois que j'ai trouve avec vos deux fichiers réunis,je pense avoir la solution je vous tiens au courant un peu plus tard dans la soirée je vais essayer de me débrouiller seul et me tester de voir si je suis capable de mettre mes lumières en route
A ce soir Gix.

Re : Calcul avec TextBox

re
bonjour Gix
oui Pierre-Jean comme tu n'a pas l'air d'accord(lol)
j'ai refait des test comme c'était avant et pas d'erreur

si somme=225,56 ,225,56*0.196 donnait erreur(dans d'autres fichiers aussi)
et maintenant c'est ok

pour moi ?

à bientôt

Re : Calcul avec TextBox

Bonsoir à tous,

Bébère , Pierre Jean 🙂 je suis très contenet car je suis arrivé à mettre en place exactement ce que j'ai voulu depuis le départ.
En effet grâce à vos fichiers joins j'ai eu une idée et ça fonctionne, vous pouvez saisir dans l'ordre ou désordre , même avec 0 remise ça marche 🙄
Vous verrez dans le fichier joint les modifs et si vous avez des suggestions je suis toujours preneur.
Merci de votre aide mes amis d' XLD et à bientôt
Bonne fin de soirée Gix.