Question sur msgbox (Debutant) [Résolu]

SpoS 22 Messages postés mercredi 5 mai 2004Date d'inscription 26 novembre 2005 Dernière intervention - 6 nov. 2005 à 23:00 - Dernière réponse : SpoS 22 Messages postés mercredi 5 mai 2004Date d'inscription 26 novembre 2005 Dernière intervention
- 7 nov. 2005 à 00:10
Voila j' essai de créer un msgbox lorsque l' utilisateur fait une action avec une réponse par oui ou non.

Le problème est que je n' arrive pas a definir les actions de oui ou de non, le programme se ferme que je clique sur oui ou non.



Voila le tronçon de code qui me pose problème.



If Val(Label3.Caption) = Val(Text1.Text) Then

Label1.Caption = "GAGNE ! "

Label1.ForeColor = &H0&



Variable = MsgBox("Voulez vous recommencer", 4, "Vous avez gagné !")



If vbNo Then

End



If vbYes Then

Label3.Caption = Int(Rnd * 100)

Label5.Caption = 0

Text1.Text = 0

Label1.Caption = ""

End If



End If





Votre aide me serai très précieuse :)
Afficher la suite 

4 réponses

Meilleure réponse
TheSaib 2369 Messages postés mardi 17 avril 2001Date d'inscription 26 décembre 2007 Dernière intervention - 6 nov. 2005 à 23:18
3
Merci
if Variable = vbNo Then

::|The S@ib|::
MVP C#.NET

Merci TheSaib 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

Meilleure réponse
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 6 nov. 2005 à 23:27
3
Merci
Salut
Je dirai même plus :

If MsgBox("Voulez vous recommencer", 4, "Vous avez gagné !") = vbNo Then
End
Else
Label3.Caption = Int(Rnd * 100)
Label5.Caption = 0
Text1.Text = 0
Label1.Caption = ""
End If

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

Merci cs_Jack 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

Meilleure réponse
jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 6 nov. 2005 à 23:31
3
Merci
Bonsoir,

J'ai un peu modifier ton code.



Private Sub Command1_Click()

Dim Variable, Reponse

Variable = "Vous avez gagné, voulez-vous recommencer ?"

If Val(Label3.Caption) = Val(Text1.Text) Then

Label1.Caption = "GAGNE ! "

Label1.ForeColor = &HC000&



Reponse = MsgBox(Variable, vbInformation + vbYesNo, "Jeu")



If Reponse = vbNo Then

End

Else

Label3.Caption = Int(Rnd * 100 - 1)

Label5.Caption = 0

Text1.Text = 0

Label1.Caption = ""

Label1.ForeColor = &H0&

End If

End If

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.

Merci jpleroisse 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

SpoS 22 Messages postés mercredi 5 mai 2004Date d'inscription 26 novembre 2005 Dernière intervention - 7 nov. 2005 à 00:10
0
Merci
Merci à vous 3 ca a resolu mon probleme :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.