Discussion :

[capi81]

Salut le forum

J'ai un usf dans lequel je dois saisir des montants et opérer des calculs.
Je souhaite que si possible les résultats s'affichent simultanément dans les textbox reservé au résultats (textbox10 et textbox11).
Voici mon besoin:
je souhaite intégrer une formule conditionnelle dont le résultat devra s'afficher dans le textbox10.
Ci-dessous la formule que je souhaite intégrer mais que je n'arrive pas à traduire dans le langage vba (usf).

Code :

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

SI(-textbox9>textbox8;( textbox9+textbox8);SI(OU(textbox8="";textbox8=0);textbox9;"PAS DE VISA"))

Comment le faire svp?
-Une 2è formule à intégrer dans le textbox11:

Code :

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

Si(textbox10<0;textbox6-textbox10;

si le résultat est négatif, un msgbox devra s'afficher avec comme message :" Attention!!le solde après couverture est négatif donc pas de visa".
-Enfin, si le résultat du textbox11 ne couvrira pas la somme( textbox2+textbox3+textbox4+textbox5), le msgbox suivant devra s'afficher :"Attention!!le solde après couverture ne couvre pas les traites mensuelles en cours"
Merci de voir comment vous pourrez m'aider tout en restant ouvert pour tout besoin complementaire.

[Philippe Tulliez]

Bonjour,
Une possibilité est l'utilisation de la structure décisionnelle IF <Condition> Then... Else.
De plus les valeurs contenues dans les contrôles TextBox étant de type alphanumérique, il y a lieu d'utiliser la fonction Val
Exemple sur une ligne

Code :

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

1
2
3
Private Sub Calcul()
 If Val(TextBox1) > 100 Then TextBox4 = Val(TextBox1) * Val(TextBox2)
End Sub

Exemple sur plusieurs lignes

Code :

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

1
2
3
4
5
Private Sub Calcul()
 If Val(TextBox1) > 100 Then
  TextBox4 = Val(TextBox1) * Val(TextBox2)
 End If
End Sub

Il y a lieu d'appeler cette procédure depuis une procédure événementielle du contrôle TextBox
Exemple

Code :

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

1
2
3
Private Sub TextBox1_AfterUpdate()
 Calcul
End Sub

[Nico Chg]

Bonjour,

Pour t'aiguiller un petit peu, voici un exemple de fonction If Then Else.

Code :

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

1
2
3
4
5
6
7
8
Private Sub TextBox10_AfterUpdate()
If Val(Textbox10) < 0 then
     Textbox11.value = Val(Textbox6) - Val(Textbox10)
     Msgbox "Attention, un message s'affiche sur votre écran"
Else
     'Code si Textbox10 => 0
End if
End Sub

Code :

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

1
2
3
4
5
Private Sub TextBox11_AfterUpdate()
If Val(Textbox11) < Val(Textbox1) + Val(Textbox2) + ... then
     Msgbox "Attention, un autre message s'affiche sur votre écran"
End if
End Sub

Pour cet exemple, j'ai utilisé les paramètres que tu demande pour ta seconde formule.

[capi81]

Salut Philippe et Nico

Merci pour vos solutions.
Je m'en suis inspiré pour adapter mon besoin.