Problème programme bloc-note Fermé

Question

Bonjour, comme je suis novice à la programmation, je m'entraîne à créer des petits programmes. Là j'aimerai créer (pour apprendre) un quiz mais je rencontre un problème. voici le programme:

msgbox "Bonjour l'ami !"_
+ chr(13) _ 
+ chr(13) _ 
+ "ça va bien ?"_
+ chr(13) _ 
+ "Au pire je m'en fou :)"_
+ chr(13) _ 
+ "Ne le prend pas mal :P"_

strMessage = "Bon pour me faire pardonner, veux-tu jouer à un quizzzzzzzzzzzzzz ?"
vbRep = MsgBox(strMessage, vbYesNo)

If (vbRep = vbYes) Then
    MsgBox "c'est cool... ou pas"
Elself
    If (vbRep = vbNo) Then
        MsgBox "Va te faire [CENSURE] cordialement :)"
    End If
End If

InputBox "Combien fait 10+15 ? 25 ou 35 ?","Première question"

If (nombre = 25) then
    MsgBox "C'était dur OMG ! Bon je sais que je ne suis pas très bon acteur..."_
Else'Erreur ici
      If (nombre = 35) then
          MsgBox "Je crois qu'il n'y existe pas plus bête que toi X)"
      End If
End If

Là où il y a le commentaire "Erreur ici", le programme me dit: 
Erreur: Cette instruction doit être la première de la liste. 
Avec le code: 800A0412. 
La source: Erreur de compilation Microsoft VBScript

Donc si vous savez comment régler le problème et aussi si vous avez quelques petites astuces dans la programmation , je suis preneur ;)

Merci d'avance !

       EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles  ICI 

Merci d'y penser dans tes prochains messages.

Kuartz · Answer

Bonjour,

Dommage pour l'Edit, les balises de code empêchent de voir ce qui est souligné.

Sinon pour le code je l'aurais écrit comme ça :

Sub TEST()

Dim strMessage As String 'Définition de la variable strMessage
Dim nombre As Long 'Définition de la variable nombre

msgbox "Bonjour l'ami !"_
+ chr(13) _ 
+ chr(13) _ 
+ "ça va bien ?"_
+ chr(13) _ 
+ "Au pire je m'en fou :)"_
+ chr(13) _ 
+ "Ne le prend pas mal :P"_

strMessage = "Bon pour me faire pardonner, veux-tu jouer à un quizzzzzzzzzzzzzz ?"
vbRep = MsgBox(strMessage, vbYesNo)

If vbRep = vbYes Then
    MsgBox ("c'est cool... ou pas")
Else
If vbRep = vbNo Then
    MsgBox ("Va te faire [CENSURE] cordialement")
End If

nombre = InputBox ("Combien fait 10+15 ? 25 ou 35 ?","Première question")

If nombre = 25 Then
    MsgBox ("C'était dur OMG ! Bon je sais que je ne suis pas très bon acteur..."_)
Else
  If (nombre = 35) Then
     MsgBox ("Je crois qu'il n'y existe pas plus bête que toi X")
  End If
End If

End Sub

Utilisateur anonyme · Answer

D'ailleurs, en prenant le temps de lire le code(ce que je n'ai pas fait hier) et grâce à la coloration syntaxique, le bug est rapidement identifiable.

C'est le tiret bas à la fin de la ligne 24, ce caractère indique au compilateur que l'instruction (qui normalement s'écrit sur une seule ligne) se poursuit à la ligne d'après, le seul intérêt est le confort de lecture.

Tu l'utilises correctement lignes 1 à 8, il ne devrait pas apparaître en fin de ligne 9, mais comme la ligne 10 est vide ça ne plante pas.

Par contre en ligne 25 il y a l'instruction Esle, qui ne peut pas être associée avec le messageBox, donc ça plante.

Utilisateur anonyme · Answer

Que veux tu dire par
 comment savoir que je suis en bout de ligne ?

Problème programme bloc-note

3 réponses

Discussions similaires