Discussion :

[nh783]

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.

[kazhar]

Il faut que tu mette des EndIf pour tous tes If, pas uniquement le dernier.

[nh783]

ok sa marche merci

[kazhar]

Mets un titre plus explicite à ton topic la prochaine fois.