Question reponse vbs [Résolu]

Messages postés
4
Date d'inscription
mardi 1 mai 2012
Dernière intervention
1 mai 2012
- - Dernière réponse :  Utilisateur anonyme - 22 mai 2012 à 17:07
bonjour,
je ne sais pas si le thème est bien sélectionné mais je débute et j'aimerais de l'aide sur quelque chose que je pense relativement simple pour beaucoup d'entre vous :)

je fais un msgbox sous forme de question et je voudrais que selon la réponse de l'utilisateur le texte d'information soit différent. mon problème est que le msgbox reste le meme suivant la réponse de l'utilisateur
voici mon code:
msgbox "aimez-vous les pattes", vbQuestion+vbYesNo, "Une question...."
If reponse VbYes Then 'Si reponse oui
MsgBox "Vous avez cliqué sur Oui",vbinformation
Else ' Ou sinon ( VbNo)
MsgBox "Vous avez cliqué sur Non",vbinformation
End If

merci d'avance
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
3
Merci
Ecoute :
là, tu commences à "charrier un peu", non ?
Je veux bien, mais ce sera le dernier exemple. Il te faut faire travailler un peu les neurones (ils sont là pour cela) :
reponse = MsgBox("est ce que tu aimes les pâtes?", vbQuestion + vbYesNo, "Une question....")
If reponse vbYes Then 'Si reponse oui
  reponse1 = MsgBox("est ce que tu aimes la lasagna ?", vbQuestion + vbYesNo)
  If reponse1 = vbYes Then
    MsgBox "bien ! j'en ai justement"
  Else
    MsgBox "je n'ai malheuresemnt que de la lasagna"
  End If
Else
  MsgBox "dommage ! tu n'auras donc pas de pâtes, mais rien d'autre non plus (frigo vide)", vbInformation
End If

Bon ...
Clique sur "réponse acceptée", maintenant (que ce sujet puisse être libéré).


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Dire « Merci » 3

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

Codes Sources a aidé 106 internautes ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
0
Merci
Normal, puisque reponse n'est jamais initialisé !
Essaye donc ainsi (il y a 2 corrections, d'un l'une dans le message lui-même )
reponse = MsgBox("aimez-vous les pâtes (et non les pattes, hein..., qui seraient celles d'un animal)", vbQuestion + vbYesNo, "Une question....")
If reponse vbYes Then 'Si reponse oui
  MsgBox "Vous avez cliqué sur Oui", vbInformation
Else ' Ou sinon ( VbNo)
  MsgBox "Vous avez cliqué sur Non", vbInformation
End If

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Commenter la réponse de ucfoutu
Messages postés
4
Date d'inscription
mardi 1 mai 2012
Dernière intervention
1 mai 2012
0
Merci
merci beaucoup c'est bon :)
c'était un exemple de texte et je n'ai pas fais attention mais merci quand même :)
Commenter la réponse de qskk
Messages postés
4
Date d'inscription
mardi 1 mai 2012
Dernière intervention
1 mai 2012
0
Merci
re bonjour :)

je veux faire une suite de question
et je ne sais pas comment faire pour que les réponses de la msgbox ne soient pas en conflit.

ex:
reponse = MsgBox("est ce que tu aime les pâtes?", vbQuestion + vbYesNo, "Une question....")
If reponse vbYes Then 'Si reponse oui
  MsgBox "parfait. vos préférées sont elles les lasagnes?", vbQuestions + vbYesNo
Else ' Ou sinon ( VbNo)
  MsgBox "dommage", vbInformation
End If

si j'inclus mon "If" apres la seconde question elle sera surement un conflit avec le "else" suvant.
puis-je demander encore votre aide? :)

merci d'avance
Commenter la réponse de qskk
0
Merci
Bonjour,
Je le vois comme ça:

reponse = MsgBox("est ce que tu aime les pâtes?", vbQuestion + vbYesNo, "Une question....")
If reponse vbYes Then 'Si reponse oui
  reponse = MsgBox "parfait. vos préférées sont elles les lasagnes?", vbQuestions + vbYesNo
if reponse = vbyes then
msgbox "Je vous sers donc des lasagnes"
else
msgbox "Vous n'aimez pas les lasagnes! comment voulez-vous que je vous nourrisse? changez donc de restaurant !..." 
end if
Else ' Ou sinon ( VbNo)
  MsgBox "dommage", vbInformation
End If


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
Messages postés
4
Date d'inscription
mardi 1 mai 2012
Dernière intervention
1 mai 2012
0
Merci
Merci désolé pour le dérangement :)
Commenter la réponse de qskk
Messages postés
10
Date d'inscription
mardi 26 mai 2009
Dernière intervention
5 septembre 2012
0
Merci
bjr, je fais un stage au bresil en reseau. mn chef ma demander de faire un script qui lit le contenu d un fichier selon l especification genre:
je recheche les mots(nom ,adresse, loca).
quand il trouve un de ces mots sur une ligne il copí toute la ligne et la sauve dans un autre fichier. apres avoir trouver tout les renseignements il imprime sous forme de tableau ou liste!
je suis debutan en vbscript alors je besoins d aide!
Commenter la réponse de chriskalo1
0
Merci
Bjr donc,

Quel est le rapport avec les pattes de qskk?
Pourquoi n'as-tu pas ouvert une nouvelle discussion?
Au lieu de s’approprier de celle de qskk...

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme

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.