bonjour a tous voila le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
 
valeur = InputBox("choisis un nombre entier")
If valeur = 2203 Then
MsgBox ("vous avez gagné sacré veinard")
End
 
Else
If valeur > 2203 Then
MsgBox ("votre nombre est trop grand. Réessayez!!!")
InputBox ("choisis un nombre entier")
 
Else
If valeur < 2203 Then
MsgBox ("votre nombre est trop petit. Réessayez!!!")
InputBox ("choisis un nombre entier")
 
End If
 
End Sub
vb6 m'affiche un message d'erreur disant qu'il n'y a pas de end if alors que j'en ai mis un. j'attends toutes réponses de votre part et je vous remercie d'avance.