Resolution d'un exo sur VB

Question

l'exo me demande que si je donne une valeur a text2 compris entre 16 et 150 alors text1 doit faire appaitrele resultat de loperation: valeur de text1 diviser par 2 et plus 7. et si je donnais a text1 alors text2 sera egal a 2 fois text1 et moin 7 avec un message d'erreur si les valeur ne sont pas comprise entre 16 et 150 voila ce que j'ai fait Private Sub CmdOK_Click() If (Text1.Text <> "" Or Text2.Text <> "") Then Ì = Val(Text1.Text) Æ = Val(Text2.Text) If Ì < 16 Or Ì > 150 And Æ < 16 Or Æ > 150 Then msg = "error" Style = vbCritical MsgBox msg, Style ElseIf Ì > 16 Or Ì < 150 Then Text2.Text = (Text1.Text / 2) + 7 ElseIf Æ > 16 Or Æ < 150 Then Text1.Text = 2 * (Text2.Text) + 7 End If End If End Sub mais seul text1 est juste et tout fonctionne, mais text2 ne fonctionne pas, le message d'erreur apparait pour n'importe quel nombre Aidez moi a trouver l'erreur SVP

NHenry · Answer

Bonjour, Ì et Æ, c'est quoi ces noms de variables O.o ? De base, on évite les variables accentuée ou avec des caractères spéciaux. Ensuite, mets : Option Explicit en haut de ton module de code et déclare toutes tes variables. Pour les conditions, toujours mettre des parenthèses : If Ì < 16 Or Ì > 150 And Æ < 16 Or Æ > 150 Then Quelles sont les associations ? Ne sachant jamais, je mets toujours des parenthèses : If (Ì < 16 Or Ì > 150) And (Æ < 16 Or Æ > 150) Then Et là ça devrait passer. Mon site

cs_GG29 · Answer

Essaye de rajouter des parenthèses dans la condition If (Ì < 16 Or Ì > 150) And (Æ < 16 Or Æ > 150) Then PS : utilise la balise de code (3ème en partant de la droite) --- Généralement le bug se situe entre le clavier et la chaise. Le temps est une "chose" introuvable dont l'existence ne fait aucun doute.

arnotti · Answer

c'est toujours la meme chose... 
Rien ne fonctionne pour le text2 comme ca devrai, coe pour le text1

cs_DARKSIDIOUS · Answer

Salut,

Ben si déjà tu prennais en compte ce que je te disais sur ton post d'avant...
______________________________________

AVANT de poster votre message, veuillez lire, comprendre, et appliquer notre réglement

arnotti · Answer

[^^sad1][^^sad1]

Claiyah · Answer

salut c'est quoi ce code ? je t'explique ton problème: If Ì < 16 Or Ì > 150 And Æ < 16 Or Æ > 150 Then 's'il y a une erreur donc on affiche le msg d'erreur et on traite pas les elseif msg = "error" Style = vbCritical MsgBox msg, Style ElseIf Ì > 16 Or Ì < 150 Then 'si pas d'erreur et tout est bon sur texte1 on traite texte1 Text2.Text = (Text1.Text / 2) + 7 ElseIf Æ > 16 Or Æ < 150 Then 'ce dernier elseif : si pas d'erreur et pas de traitement pour texte1 on traite texte2 ce qui est impossible : si pas d'erreur ton code traitera texte1 sil y a une erreur ton code affiche un msg d'erreur donc tu arrivera jamais à traiter le dernier elseif Text1.Text = 2 * (Text2.Text) + 7 End If Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie (mon site)

Claiyah · Answer

Oops j'ai oublié la balise: If Ì < 16 Or Ì > 150 And Æ < 16 Or Æ > 150 Then 's'il y a une erreur donc on affiche le msg d'erreur et on traite pas les elseif msg = "error" Style = vbCritical MsgBox msg, Style ElseIf Ì > 16 Or Ì < 150 Then 'si pas d'erreur et tout est bon sur texte1 on traite texte1 Text2.Text = (Text1.Text / 2) + 7 ElseIf Æ > 16 Or Æ < 150 Then 'ce dernier elseif : si pas d'erreur et pas de traitement pour texte1 on traite texte2 ce qui est impossible : si pas d'erreur ton code traitera texte1 sil y a une erreur ton code affiche un msg d'erreur donc tu arrivera jamais à traiter le dernier elseif Text1.Text = 2 * (Text2.Text) + 7 End If Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie (mon site)

arnotti · Answer

Si c'est impossible alors? l'exo lui meme ne doit pas exister??

Resolution d'un exo sur VB

8 réponses

Votre réponse

Discussions similaires