Discussion :

[Attila54]

Bonjour,
J'ai une petite condition a réaliser sur une textbox selon 2 criteres
- la plage de valeurs doit être comprise entre -2.00 et +2.00
- les calculs different selon que la valeur est < 0 ou >= 0

Pour réaliser la seconde condition, j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Command5_Click()
If (Val(TextA.Text) < 0) Then
TextB.Text = Format(CCur(TextC.Text), "0.00")
TextD.Text = Format(CCur(((Sqr((TextA.Text) + 4)) * TextE.Text) / 2), "0.000")
End If
Else
If (Val(Text15.Text) >= 0) Then
TextB.Text = Format(CCur(TextC.Text), "0.00")
TextD.Text = (2 * (TextA.Text)) / Sqr(4 - (TextE.Text))
End If
End Sub

je ne vois pas l'erreur et pourtant mon resultat ne tient pas compte de ma condition et calcule le deuxieme cas quel que soit la valeur entrée

Merci

[DarkVader]

Bonjour,
VB est très permissif mais ce n'est pas te rendre service que d'en abuser.
Utilise «Option Explicit» en tête de tous tes modules
et «Arrêt sur toutes les erreurs» dans Outils/Options Onglet Général»
et tu auras fait un pas de géant.

[babaothe]

Code :

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

1
2
3
4
5
6
7
Private Sub Command5_Click()
  If (Val(TextA.Text) < 0) Then
    TextB.Text = Format(CCur(TextC.Text), "0.00")
    TextD.Text = Format(CCur(((Sqr((TextA.Text) + 4)) * TextE.Text) / 2), "0.000")
  End If
Else
...

salut
peux-tu commencer par tenter de nous dire à quel If pourrait selon toi correspondre la dernière ligne (Else) de cet extrait ?

J'ajouterais à ce qu'a dit DarkVader : l'indentation du code n'est pas un luxe. Elle permet de mieux "voir" !

[DarkVader]

Tu ne lui rends pas service en lui fournissant une réponse aussi rapide sur une erreur aussi élémentaire,
car ce n'est pas ainsi qu'il va être incité à coder proprement - ne pas effectuer des opérations numériques sur des string par exemple.

[Attila54]

alors pour repondre j'ai l'intendation dans mon code, au cas précis ca donne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Command5_Click()
   If (Val(TextA.Text) < 0) Then
      TextB.Text = Format(CCur(TextC.Text), "0.00")
      TextD.Text = Format(CCur(((Sqr((TextA.Text) + 4)) * TextE.Text) / 2), "   0.000")
   End If
   Else
     If (Val(Text15.Text) >= 0) Then
     TextB.Text = Format(CCur(TextC.Text), "0.00")
     TextD.Text = (2 * (TextA.Text)) / Sqr(4 - (TextE.Text))
     End If
End Sub

je precise avoir essaye simplement ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Command5_Click()
   If (Val(TextA.Text) < 0) Then
      TextB.Text = Format(CCur(TextC.Text), "0.00")
      TextD.Text = Format(CCur(((Sqr((TextA.Text) + 4)) * TextE.Text) / 2), "   0.000")
   End If
   Else
     TextB.Text = Format(CCur(TextC.Text), "0.00")
     TextD.Text = (2 * (TextA.Text)) / Sqr(4 - (TextE.Text))   
End Sub

mais même problème. Pourtant je pensais bien sortir de ma condition If avant le Else

[iclic]

Bonjour,

Jette un coup d'oeil dans la MSDN à la rubrique:

If...Then...Else, instruction


Tu verras comment bien l'utiliser...

[Attila54]

Juste une précision, je ne suis pas developpeur ni pro encore moins amateur, je suis admin systeme mais je suis le seul info de la boite, je me retrouve donc contraint a faire du code, d'ou mon incompétence et pour aller plus loin, je dirais que finalement, je ne trouve pas cela désagréable, mais je ne peux pas tout maitriser.