1. #1
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    juillet 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 23
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : juillet 2017
    Messages : 4
    Points : 3
    Points
    3

    Par défaut Créer un fichier Vbs "Oui ou non" plus avancé

    Bonjour,

    Je suis nouveau ici, et

    j'aimerais savoir si il est possible de créé plusieurs message "oui ou non" avec le bloc note, Je m'explique...

    Genre :

    Premier message : avez vous bien dormi ?

    Message de réponse positif : Tant mieux

    Message de réponse négatif + deuxième question : Dommage, et avez-vous manger ?

    Message de réponse positif : Ok, eh bien bon appétit !

    Message de réponse négatif : Dans ce cas, je vous laisse tranquille.

    Merci d'avance.

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 018
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 018
    Points : 7 891
    Points
    7 891

    Par défaut

    Salut Gogoud-th, bienvenue sur DVP

    message "oui ou non" avec le bloc note
    Pourquoi spécialement avec le bloc note?
    2 exemples:
    Avec un msgbox
    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    Dim Rep
     
    Sub repondre1()
    Rep = Msgbox("1- Veuillez repondre oui pour continuer",VByesNo,"Premiere question")
    if Rep = VBNo then
            repondre1
            else
            repondre2
    end if
    End Sub
     
    Sub repondre2()
    Rep = Msgbox("2- Veuillez repondre oui pour continuer",VByesNo,"Deuxieme question")
    if Rep = VBNo then
            msgbox "pas bien de ne pas avoir repondu à la question 2"
            repondre1
            else
            repondre3
    end if
    End Sub
     
    Sub repondre3()
    Rep = Msgbox("3- Veuillez repondre oui pour continuer",VByesNo,"Troisiéme question")
    if Rep = VBNo then
            msgbox "pas bien de ne pas avoir repondu à la question 3"
            repondre1
            else
            msgbox "Trés bien d'avoir repondu oui jusqu'à la question 3"
    end if
    End Sub
     
    repondre1
    Avec un Popup
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Dim WshShell, BtnCode
    Set WshShell = CreateObject("WScript.Shell")
    BtnCode = WshShell.Popup("Voulez vous répondre ?", 5, "Question:", 4 + 48)
    Set WshShell = nothing
    Select Case BtnCode
    case 6:      msgbox "C'est bien gentil."
    case 7:      msgbox "Tanpis pour vous."
    case -1:     msgbox "Trop tard, les 5 Scs sont passées"
    End Select

  3. #3
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    juillet 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 23
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : juillet 2017
    Messages : 4
    Points : 3
    Points
    3

    Par défaut

    Merci pour votre réponse et pour la bienvenu sur le forum.

    Pour le bloc note, c'est par ce que sur certain forum, ils disaient qu'on pouvait utiliser le bloc note, donc j'en suis resté à ce programme.

    Concernant vos exemple, ce que je recherche ressemblerait plus au deuxième exemple qu'au premier.

    Je voudrais un

    Un "oui/non" avec des exclamation, interrogation, croix.

    Jusqu'ici, je n'ai réussi qu'a faire ça, je n'ai pas réussi à faire plus de réponse :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    x = msgbox("Bonjour à vous, pouvez-vous ouvrir firefox s'il vous plaît ",4+32+0,"Question")
     
    If x = 6 Then
    y = msgbox("Merci., et maintenant le bloc note",0+64,"Ouverture")
    End If
     
    If x = 7 Then
    z = msgbox("Vous ne voulez pas ?",0+64,"Attention !")
    End If
    Je n'arrive pas à donner une réponse au "vous ne voulez pas ?" ainsi que le "merci, et maintenant le bloc note"

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 018
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 018
    Points : 7 891
    Points
    7 891

    Par défaut

    Ok

    Regardes du coté de ce lien: Faire disparaitre une MsgBox au bout d'un certain temps ?
    Bien que traitant du Popup, c'est pareil que pour un MsgBox, il y est décrit les différentes boîtes de dialogue que tu peux utiliser, et d'autres informations.

    Pour avoir x = 7, il faut avoir la boîte de dialogue 4 ou vbYesNo qui est la constante équivalente.

  5. #5
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    juillet 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 23
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : juillet 2017
    Messages : 4
    Points : 3
    Points
    3

    Par défaut

    Merci, mais je suis encore très expérimenter, je ne comprend pas grand chose, je voulais juste faire un message surprise à un copain.

    mais je voudrais juste savoir si il est possible de faire ce schéma ? et comment le faire ?

  6. #6
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 018
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 018
    Points : 7 891
    Points
    7 891

    Par défaut

    Re

    Ce n'ai plus vraiment un problème de code mais de logique
    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
    21
    22
    23
    Dim x
    x = msgbox("Bonjour à vous, pouvez-vous ouvrir firefox s'il vous plaît ",4+32+0,"Question")
     
    If x = 6 Then
            x = msgbox("Merci., et maintenant le bloc note",4+64,"Ouverture")
            If x = 6 Then
                    msgbox "Merci, c'est bon je vous laisse tranquille",0+64,"Ouverture"
                    Else
                    x = msgbox("Vous ne voulez pas l'ouvrir?",4+64,"Attention")
                    If x = 6  Then
                            msgbox "D'ac",0+64,"Ouverture"
                            Else
                            msgbox "Merci bien",0+64,"Attention"
                    End If
            End If
            Else
            x = msgbox("Vous ne voulez pas ?",4+64,"Attention !")
            If x = 6 Then
                    msgbox "Ok",0+64,"Attention"
                    Else
                    msgbox "Snif",0+64,"Attention"
            End If
    End If

  7. #7
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    juillet 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 23
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : juillet 2017
    Messages : 4
    Points : 3
    Points
    3

    Par défaut

    Super !!!

    merci pour votre temps et d'avoir fait le code !

    Problème résolu du coup.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [PPT-2007] Créer un PPT depuis Excel possible oui ou non
    Par jeff1494 dans le forum VBA PowerPoint
    Réponses: 7
    Dernier message: 19/04/2012, 09h33
  2. Créer un fichier non ASCII ?
    Par Olivier Regnier dans le forum Shell et commandes GNU
    Réponses: 7
    Dernier message: 29/02/2008, 11h14
  3. Problème d'ouverture de fichier (une fois oui, une fois non)
    Par yadla dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/08/2007, 08h54
  4. Créer un message d'alerte avec comme solution oui ou non
    Par La_Bande_A_Zozo dans le forum C++Builder
    Réponses: 3
    Dernier message: 24/05/2006, 14h43
  5. Réponses: 7
    Dernier message: 21/05/2004, 17h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo