Discussion :

[zek474]

bonjour;



je souhaite faire un calcul avec trois integer récuperés dans 3 textbox d'une userform et rentrer le résultat du calcul au fur et à mesurer des saisies dans cellule.

je dois composer pour atteindre au minimum la valeur de " j'ai besoin de "; il faut donc que le calcul se fasse en direct, est-ce possible ?




voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub calcul_commande()
Dim e250, e1000, e2500 As Integer
 
e250 = TextBox1.Value
e1000 = TextBox2.Value
e2500 = TextBox3.Value
 
Sheets("Grammage").Range("D7").Value = e250 * 0.25 + e1000 * 1 + e2500 * 2.5
 
 
End Sub

Merci