Textbox
Résolu
Gornarf
Messages postés
120
Date d'inscription
Statut
Membre
Dernière intervention
-
Gornarf Messages postés 120 Date d'inscription Statut Membre Dernière intervention -
Gornarf Messages postés 120 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Encore un problème de textbox: j'aimerai qu'en fonction de l'interval numérique dans lequel elle se situe (2 positif, 1 négatif) ma textbox renvoi trois Alertes différentes.
Ça marche mais:
1° Ca tiens aléatoirement compte d'un résultat négatif
2° Les intervalles ne sont pas respectés
(en gros parfois j'ai un résultat de 600 et il m'annonce le message qui doit apparaître quand résultat négatif, j'ai un résultat de -5000 et il me donne le message qui doit apparaitre lorsque le résultat se situe entre 0 et 100
etc....)
HEEEEEELP je vous en supplie. c'est tout ce qu'il me manque pour finaliser 2 semaines de travail!!!
Je joins le code:
[\CODE]
Private Sub CommandButton62_Click()
If TextBox9 = "" Then
Exit sub
End If
'Si résultat négatif
If TextBox9.Value > TextBox1.Value Then
MsgBox "................"
TextBox10.Value = CDbl(TextBox1.Value) - CDbl(TextBox9.Value)
Exit Sub
End If
'Calcul si positif
TextBox10.Value = CDbl(TextBox1) - CDbl(TextBox9)
'Si résultat largement positif
If TextBox10.Value > "100" Then
MsgBox "...................."
Exit Sub
End If
'Si résultat positif
If 0 <= TextBox10.Value <= 100 Then
MsgBox ".................."
Exit Sub
End If
End Sub [\CODE]
Encore un problème de textbox: j'aimerai qu'en fonction de l'interval numérique dans lequel elle se situe (2 positif, 1 négatif) ma textbox renvoi trois Alertes différentes.
Ça marche mais:
1° Ca tiens aléatoirement compte d'un résultat négatif
2° Les intervalles ne sont pas respectés
(en gros parfois j'ai un résultat de 600 et il m'annonce le message qui doit apparaître quand résultat négatif, j'ai un résultat de -5000 et il me donne le message qui doit apparaitre lorsque le résultat se situe entre 0 et 100
etc....)
HEEEEEELP je vous en supplie. c'est tout ce qu'il me manque pour finaliser 2 semaines de travail!!!
Je joins le code:
[\CODE]
Private Sub CommandButton62_Click()
If TextBox9 = "" Then
Exit sub
End If
'Si résultat négatif
If TextBox9.Value > TextBox1.Value Then
MsgBox "................"
TextBox10.Value = CDbl(TextBox1.Value) - CDbl(TextBox9.Value)
Exit Sub
End If
'Calcul si positif
TextBox10.Value = CDbl(TextBox1) - CDbl(TextBox9)
'Si résultat largement positif
If TextBox10.Value > "100" Then
MsgBox "...................."
Exit Sub
End If
'Si résultat positif
If 0 <= TextBox10.Value <= 100 Then
MsgBox ".................."
Exit Sub
End If
End Sub [\CODE]
4 réponses
-
bonjour
je vois 3 soucis:If TextBox9.Value > TextBox1.Value Then
comme son nom l'indique, la textbox contient du texte; pas sûr que le test soit toujours correct.Il faudrait quelque chose comme
If Val(TextBox9.Value) > Val(TextBox1.Value) Then
If TextBox10.Value > "100" Then
on a du numérique donc pas de " " : If TextBox10.Value > 100
If 0 <= TextBox10.Value <= 100 Then
il faut : If Val(TextBox10.Value) >= 0 And Val(TextBox10.Value) <= 100
Bonne suite -
Bonsoir,
Ci-dessous code qui permet de tester 2 zones :
On initialise les variables lors de l'activate de la feuille
1 test :
on regarde si les 2 zones sont renseignées
2 test :
message si la différence est positive et supérieure à 100
message si la différence est positive et inférieure à 100
message si la différence est négative
Code à modifier suivant les messages que vous voulez.
Didier
---------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim Wzone As Double, Wzone1 As Double, Wzone2 As Double
Wzone = Val(Me.TextBox9.Value)
Wzone1 = Val(Me.TextBox1.Value)
'
If Wzone = 0 Then
MsgBox "Zone 1 vide !"
Exit Sub
End If
'
If Wzone1 = 0 Then
MsgBox "Zone 2 vide !"
Exit Sub
End If
Wzone2 = Wzone - Wzone1
Me.TextBox10.Value = Wzone2
'Suivant la valeur de Wzone2
'
Select Case Wzone2
Case Is > 0:
Select Case Wzone2
Case Is < 100:
MsgBox "Résulat positif et inférieur à 100 "
Case Is > 100:
MsgBox "Résulat positif et supérieur à 100 "
End Select
Case Is < 0:
MsgBox "Résulat négatif " & Wzone2
End Select
End Sub
'
'Initialisation des zones
'
Private Sub UserForm_Activate()
Me.TextBox1.Value = 0
Me.TextBox10.Value = 0
Me.TextBox9.Value = 0
End Sub -
Bonjour Paf,
Bonjour Marion,
Je viens de voir vos réponses, je les test dans l'ordre.
Les rectifications de Paf semblent fonctionner, je vais retourner l'outils dans tous les sens pour voir si il n'affiche pas d'abération et si nécessaire je passe à ta solution Marion.
Un tout tout grand merci pour vos réponses. -
Feedback: Tout semble bon avec les modifications de Paf, je marque comme résolu, si bug: "i'll be back" ^^
Merci à tous les deux,
Gornarf
