Question reponse vbs [Résolu]

qskk 4 Messages postés mardi 1 mai 2012Date d'inscription 1 mai 2012 Dernière intervention - 1 mai 2012 à 16:45 - 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 

8 réponses

Répondre au sujet
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 1 mai 2012 à 18:19
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de ucfoutu
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 1 mai 2012 à 17:15
0
Utile
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
qskk 4 Messages postés mardi 1 mai 2012Date d'inscription 1 mai 2012 Dernière intervention - 1 mai 2012 à 17:46
0
Utile
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
qskk 4 Messages postés mardi 1 mai 2012Date d'inscription 1 mai 2012 Dernière intervention - 1 mai 2012 à 18:02
0
Utile
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
Utilisateur anonyme - 1 mai 2012 à 18:13
0
Utile
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
qskk 4 Messages postés mardi 1 mai 2012Date d'inscription 1 mai 2012 Dernière intervention - 1 mai 2012 à 19:28
0
Utile
Merci désolé pour le dérangement :)
Commenter la réponse de qskk
chriskalo1 10 Messages postés mardi 26 mai 2009Date d'inscription 5 septembre 2012 Dernière intervention - 21 mai 2012 à 21:58
0
Utile
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
Utilisateur anonyme - 22 mai 2012 à 17:07
0
Utile
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.