Textbox negatif ou positif

[apdf1]

Bonjour

Voila j'ai 8 textbox par ligne 4 positif et 4 négatif comment peut on mettre une valeur dans un textbox positif Ex: 90 et avoir automatiquement les trois autres textbox négatif la valeur de 30.
Ci-joint mon fichier qui sera plus explicite.

Merci d'avance

Cordialement
Max

 

[Paritec]

Re : Textbox negatif ou positif

bonjour max
et il est passé ou le module de classe de Laetitia??
a+
Papou🙂

EDIT Bonjour Pierrot🙂

 

[apdf1]

Re : Textbox negatif ou positif

Bonjour Paritec,

Le module de classe de Laetitia fonctionne très bien et je la remercie encore se que cherche et un complément pour finaliser mon USF.
@+
Max

 

[Pierrot93]

Re : Textbox negatif ou positif

Bonjour Max, Papou🙂

regarde ceci :

TextBox2 = (TextBox1 / 3) * -1

bonne journée
@+

 

[apdf1]

Re : Textbox negatif ou positif

Bonjour Pierrot

Et merci de ton aide, le probleme est que si tu rentre 90 dans le textbox1 les autres textbox negatif marque bien 30, mais si je rentre 90 dans le textbox3 les utres textbox devrais marque30 il faut que sa fonction dans tous les sens.
Sinon le principe et bon

Bonne journée
@+

 

[Pierrot93]

Re : Textbox negatif ou positif

Re,

Comme dit Papou, utilise le module de classe de Laetitia....

 

[apdf1]

Re : Textbox negatif ou positif

Re,

OUI Mais comment je doit faire ??????

@+

 

[Pierrot93]

Re : Textbox negatif ou positif

Re,

j'en sais rien aucun code dans ton fichier et nous ne connaissons pas l'objet / l'événement déclencheur...

 

[apdf1]

Re : Textbox negatif ou positif

Re,

Code

Dim txt(1 To 72) As New Classe1, i As Byte

Private Sub UserForm_Initialize()
End Sub

Code Module de classe

Public WithEvents txt As MSForms.TextBox, i As Byte, X As Variant
Private Sub txt_Change()
Application.ScreenUpdating = False
X = 0: For i = 1 To 8
If UserForm1.Controls("T" & i) <> "" Then X = X + CDbl(UserForm1.Controls("T" & i))
Next i: UserForm1.TextBox82 = X

X = 0: For i = 9 To 16
If UserForm1.Controls("T" & i) <> "" Then X = X + CDbl(UserForm1.Controls("T" & i))
Next i: UserForm1.TextBox81 = X

X = 0: For i = 17 To 24
If UserForm1.Controls("T" & i) <> "" Then X = X + CDbl(UserForm1.Controls("T" & i))
Next i: UserForm1.TextBox80 = X

X = 0: For i = 25 To 32
If UserForm1.Controls("T" & i) <> "" Then X = X + CDbl(UserForm1.Controls("T" & i))
Next i: UserForm1.TextBox79 = X

X = 0: For i = 33 To 40
If UserForm1.Controls("T" & i) <> "" Then X = X + CDbl(UserForm1.Controls("T" & i))
Next i: UserForm1.TextBox78 = X

X = 0: For i = 41 To 48
If UserForm1.Controls("T" & i) <> "" Then X = X + CDbl(UserForm1.Controls("T" & i))
Next i: UserForm1.TextBox77 = X

X = 0: For i = 49 To 56
If UserForm1.Controls("T" & i) <> "" Then X = X + CDbl(UserForm1.Controls("T" & i))
Next i: UserForm1.TextBox76 = X

X = 0: For i = 57 To 64
If UserForm1.Controls("T" & i) <> "" Then X = X + CDbl(UserForm1.Controls("T" & i))
Next i: UserForm1.TextBox75 = X

'x = 0: For i = 64 To 72
'If UserForm1.Controls("T" & i) <> "" Then x = x + CDbl(UserForm1.Controls("T" & i))
'Next i: UserForm1.TextBox9 = x

End Sub
Private Sub txt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

@+

Max

 

[Pierrot93]

Re : Textbox negatif ou positif

Re,

je vois que Laetitia🙂 suit le fil :
https://www.excel-downloads.com/threads/calculer-textbox.162057/

il eut été préférable de rester sur la même discussion, s'agissant du même sujet....

 

[Paritec]

Re : Textbox negatif ou positif

Bonjour Pierrot🙂
je venais pour dire la même chose que toi alors du coup juste pour te saluer !!!
bonne journée
papou 🙂