formule de calcul

[accoman]

Bonjour à tous
Voilà j ai un combobox 1 avec entrer ou sortie ce que je souhaite faire s’est que si je choisie entrer et tape par exemple 2 dans ma textbox 1 il me face l’adition de la textbox4 et que le résultat ce modifie dans le textbox 4 et idem avec ma textbox 1 je rentre 5 il me fait la soustraction dans ma textbox 4
En Stock au départ TextBox4 8
ComboBox1 TextBox1 Résultat TextBox4
Entrer 2 10 (8+2)
ComboBox1 TextBox1 Résultat TextBox4
Sortie 5 5 (10-5)

Désolé sur ce coup la je ne peu pas joindre mon classeur pour le moment
J’espère que vous me pardonnerez cette entorse au règlement du forum et pouvoir vous joindre un fichier si il le faut le plus rapidement possible
Si vous aviez la formule qui me permette de faire cela sa serrai sympa
Amicalement

 

[Hervé]

Re : formule de calcul

bonjour

une petite application en pj pour faire avancer ta demande

j'ai utilisé l'evenement change de la textbox1 comme declencheur mais ca ne me parait pas une bonne idée (a revoir)

les deux seules lignes un peu exotique à comprendre sont ici :

signe = IIf(ComboBox1.ListIndex = 0, "+", "-")
TextBox4 = Application.Evaluate(CDbl(TextBox4) & signe & TextBox1)

pour éviter de créer deux codes pour entrée et sortie, je choisis le signe à travers le IIF, puis evaluate une concatenation des 2 textbox et du signe.

a ton service

a plus

 

[accoman]

Bonsoir a tous
Meci Hervé pour la reponse s'est ce que je recherchai Quand mon problème technique sera résolu je fait le test dans mon classeur
A +
te tien au courant
Amicalement

 

[accoman]

Re
j'ai vu que tu etait partie sur le fait que le textBox4 était déjas remplis. Ce ne seras pas le cas au départ. comment dois je modifier la formulle si s'etait le cas.
Le 10 etait un exemple
Merci encore et desole du changement
A+
Amicalement

 

[accoman]

Bonsoir a tous
et il possible de faire changer la couleur de fond d'un
texbox dans un userform selon un resultat
ex
textbox1 =5
textbox2 =4
quant je saisie le texbox2 je voudrais que si le chiffre
est inferieur a texbox1 la couleur de fond du texbox2
change et par contre si est egal qu'il change autre
couleurs mais s'il est superieur qu'il reste normal
J’ai bien trouve ça mais il y a un hic j’ai l’impression qu’il manque un bout de formule

Private Sub TextBox2_AfterUpdate()
Select Case TextBox2.Value
Case Is TextBox2.BackColor = RGB(255, 0, 0) 'rouge
Case Is = TextBox1.Value
TextBox2.BackColor = RGB(0, 255, 0) 'vert
Case Else
TextBox2.BackColor = RGB(255, 255, 255) 'blanc
End Select
End Sub

J'ai mis en rouge la ligne qui semble posé problème
Si quelqu'un pouvais voir ce qui cloche
Amicalement