Question sur msgbox (Debutant) [Résolu]

Messages postés
22
Date d'inscription
mercredi 5 mai 2004
Dernière intervention
26 novembre 2005
- - Dernière réponse : SpoS
Messages postés
22
Date d'inscription
mercredi 5 mai 2004
Dernière intervention
26 novembre 2005
- 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
Messages postés
2369
Date d'inscription
mardi 17 avril 2001
Dernière intervention
26 décembre 2007
16
3
Merci
if Variable = vbNo Then

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 87 internautes nous ont dit merci ce mois-ci

Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
72
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)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 87 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
25
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.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 87 internautes nous ont dit merci ce mois-ci

Messages postés
22
Date d'inscription
mercredi 5 mai 2004
Dernière intervention
26 novembre 2005
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.