Discussion :

[Gogoud-th]

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.

[ProgElecT]

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

[Gogoud-th]

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"

[ProgElecT]

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.

[Gogoud-th]

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 ?

[ProgElecT]

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

[Gogoud-th]

Super !!!

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

Problème résolu du coup.