résolu : Calcul dans TextBox

[Marti Marti]

Bonsoir tout le monde
Je sollicite une autre fois vos aides
svp si vous pouvez m'indiquer comment faire ce type de calcul
dans cet UserForm1 j'ai 5 TextBox :
Si la case a cocher du TextBox4 est coché "OUI" alors le calcul sera comme ça :
TextBox5 = TextBox1 + TextBox2 + TextBox3 + TextBox4
Si la case a cocher du TextBox4 est coché "NON" alors le calcul sera comme ça :
TextBox5 = TextBox1 + TextBox2 + TextBox3
REMARQUE :TextBox4 = TextBox6 + TextBox7
merci d'avance pour l'aide
amicalement
MARTI MARTI

 

[laetitia90]

Re : Calcul dans TextBox

bonjour Marti Marti

quel textbox??

TextBox5 = TextBox???????+TextBox2+TextBox3+TextBox4

de plus !!OptionButton c'est mieux QUE CheckBox non???

 

[Lone-wolf]

Re : Calcul dans TextBox

Bonsoir Marti Marti,

regarde si celà te convient.

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
TextBox5 = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
Else
For i = 1 To 7
Me.Controls("TextBox" & i) = ""
Next i
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
TextBox5 = Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
Else
For i = 1 To 7
Me.Controls("TextBox" & i) = ""
Next i
End If
End Sub

Private Sub TextBox7_Change()
For i = 1 To 3
If Me.Controls("TextBox" & i) = "" And TextBox7 <> "" Then
TextBox4 = Val(TextBox6) + Val(TextBox7)
Else
TextBox4.Value = TextBox4.Value
End If
Next i
End Sub

Edit: Coucou! Bonsoir laetitia

A+

 

[laetitia90]

Re : Calcul dans TextBox

RE SALUT Lone wolf

vu que ta deja "bosse" dessus je te laisse continuer

 

[Lone-wolf]

Re : Calcul dans TextBox

Et bien,

je pense qu'on peux faire mieux, non?


A+

 

[Marti Marti]

Re : Calcul dans TextBox

Bonsoir Laetitia90 ..Lone -wolf
je suis tres tres désolé
j'ai oublié d'ecrire TextBox1
j'ai corrigé mon message du premier post
félicitation pour ce super reunion ( Laetitia - Lone-wolf) une autre fois dans un seul sujet ..j'espere qu'il sera dans toute la vie
amicalement
MARTI MARTI

 

[Lone-wolf]

Re : Calcul dans TextBox

Bonsoir Marti,

il y a le dicton qui dit: Il n'y a jamais 2 sans 3; alors qui sait?!


A+

 

[Marti Marti]

Re : Calcul dans TextBox

bonjour Marti Marti

quel textbox??

TextBox5 = TextBox???????+TextBox2+TextBox3+TextBox4

de plus !!OptionButton c'est mieux QUE CheckBox non???

Bonsoir Laetitia90
SVP ..si vous pouvez ..j'attend votre suggestiion avec option button ..peut etre se sera mieux ..
amicalement
MARTI MARTI

 

[Marti Marti]

Re : Calcul dans TextBox

Bonsoir Marti,

il y a le dicton qui dit: Il n'y a jamais 2 sans 3; alors qui sait?!


A+

OUI ..vous avez bien raison .. personne qui sait !!
Amicalement
MARTI MARTI

 

[Lone-wolf]

Re : Calcul dans TextBox

Re,

tu peux laisser les chekbox, mais c'est toi qui voit.

Edit: et pas de VOUS entre nous, d'ac?


A+

 

[Marti Marti]

Re : Calcul dans TextBox

Bonsoir Lone-wolf
La valeur dans TextBox4 sera calculee automatiquement TBox6 = 8 et TBox7 = 5 alors la valeur TextBox4 = 8+5 = 13
par exemple TBox1 = 10 TBox2 = 9 TBox3 = 17
TextBox 5 = 10 + 9 + 17 + 13 = 49
TextBox4 sera toujours dans le total
Uniquement si je coche "NON" sera retire du TOTAL
Peut etre j'ai mal exprime .. je vois peut etre qu'on est besoin uniquement d'une seule case a coher "NON" !!..??
Amicalement
MARTI MARTI

 

[Lone-wolf]

Re : Calcul dans TextBox

Re,

on peux laisser une seule case à cocher bien sûr.

Private Sub CheckBox1_Click()   'Texte à changer par OUI
If CheckBox1 = True Then
TextBox5 = Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
Else
TextBox5 = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
End If
End Sub


Private Sub Effacer_Click()   'bouton effacer à ajouter
For i = 1 To 7
Me.Controls("TextBox" & i) = ""
Next i
End If
end sub

Pour le reste, tu as compris.



A+

 

[Marti Marti]

Re : Calcul dans TextBox

Merci Lone-wolf
toujours et dans la plupart du temps je vous trouve l'excellente personne qui me donne le courage a avancer avec mon projet ..avec vos idees et vos superbes codes et solutions
c'est résolu grace a vous sans oublier bien sur la superbe Laetitia90
merci à vous deux
amicalement
MARTI

 

[laetitia90]

Re : résolu : Calcul dans TextBox

BONJOUR Marti Marti , Lone-wolf

une version classe pour le fun .....

si beaucoup de box & conditions plus simple a manipuler..... de plus on a le résultat en direct

 

[Lone-wolf]

Re : résolu : Calcul dans TextBox

Bonjour laetitia

ça m'aurait étonné de ta part, si tu aurais fait voeux de silence

Et bien moi, j'ai proposé ceci:

Private Sub UserForm_Initialize()
CheckBox1 = True
End Sub

Private Sub CheckBox1_Click()
If CheckBox1 = False Then
For i = 1 To 7
Me.Controls("TextBox" & i) = ""
Next i
End If
End Sub

Private Sub TextBox4_AfterUpdate()
If CheckBox1 = True And TextBox4 <> "" Then
TextBox5.SetFocus
TextBox5 = Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
End If
End Sub

Private Sub TextBox3_AfterUpdate()
If CheckBox1 = False And TextBox3 <> "" Then
TextBox5.SetFocus
TextBox5 = Val(TextBox1) + Val(TextBox2) + Val(TextBox3)
End If
End Sub

Private Sub Effacer_Click()   'bouton effacer à ajouter
For i = 1 To 7
Me.Controls("TextBox" & i) = ""
Next i
CheckBox1 = False
End Sub

Private Sub TextBox7_AfterUpdate()
For i = 1 To 3
If Me.Controls("TextBox" & i) = "" And TextBox7 <> "" Then
TextBox1.SetFocus
TextBox4 = Val(TextBox6) + Val(TextBox7)
Else
TextBox4.Value = TextBox4.Value
End If
Next i
End Sub

Amicalement Lone-wolf