Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:962901c49712$514cf520$a501280a@phx.gbl...
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:e38A6XxlEHA.3760@TK2MSFTNGP12.phx.gbl...
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:962901c49712$514cf520$a501280a@phx.gbl...
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:962901c49712$514cf520$a501280a@phx.gbl...
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour Jean Paul
Peut-être mais je me sentais l'âme un peu "formateur" et pensais donc
qu'en
évoquant quelques possibilités d'utilisation, je contribuais (humblement)
à
faire avancer notre ami Paulo dans sa connaissance.
Cordialement
Pascal
"sabatier" a écrit dans le
message
de news:bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message
de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour Jean Paul
Peut-être mais je me sentais l'âme un peu "formateur" et pensais donc
qu'en
évoquant quelques possibilités d'utilisation, je contribuais (humblement)
à
faire avancer notre ami Paulo dans sa connaissance.
Cordialement
Pascal
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message
de news:ux9qkhylEHA.3756@TK2MSFTNGP11.phx.gbl...
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:e38A6XxlEHA.3760@TK2MSFTNGP12.phx.gbl...
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le message
de
news:962901c49712$514cf520$a501280a@phx.gbl...
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour Jean Paul
Peut-être mais je me sentais l'âme un peu "formateur" et pensais donc
qu'en
évoquant quelques possibilités d'utilisation, je contribuais (humblement)
à
faire avancer notre ami Paulo dans sa connaissance.
Cordialement
Pascal
"sabatier" a écrit dans le
message
de news:bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message
de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" a écrit dans le
message de
news:
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message de
news:ux9qkhylEHA.3756@TK2MSFTNGP11.phx.gbl...
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:e38A6XxlEHA.3760@TK2MSFTNGP12.phx.gbl...
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:962901c49712$514cf520$a501280a@phx.gbl...
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" a écrit dans le
message de
news:
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
merci, denis, pour ce complément ; moi, je crois toujours qu'il faut
mettre
une variable mais je vois que ça marche sans ; je dois confondre avec la
Inputbox...
jps
"michdenis" a écrit dans le message de
news:Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" a écrit dans le
message denews:
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message
de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
merci, denis, pour ce complément ; moi, je crois toujours qu'il faut
mettre
une variable mais je vois que ça marche sans ; je dois confondre avec la
Inputbox...
jps
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:uXhEuFzlEHA.536@TK2MSFTNGP11.phx.gbl...
Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message de
news:ux9qkhylEHA.3756@TK2MSFTNGP11.phx.gbl...
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:e38A6XxlEHA.3760@TK2MSFTNGP12.phx.gbl...
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le message
de
news:962901c49712$514cf520$a501280a@phx.gbl...
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
merci, denis, pour ce complément ; moi, je crois toujours qu'il faut
mettre
une variable mais je vois que ça marche sans ; je dois confondre avec la
Inputbox...
jps
"michdenis" a écrit dans le message de
news:Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" a écrit dans le
message denews:
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le message
de
news:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour jps.
Non, tu ne confonds pas avec InputBox qui, à l'instar de MsgBox, est une
fonction qui retourne une valeur.
L'idée de papou et de michdenis est d'évaluer cette valeur retournée
directement sans passer par une variable.
Exemple:
If InputBox("Votrechoix?") = "non" Then Exit Sub
est exactement la même chose que
a = InputBox("Votrechoix?")
If a = "non" Then Exit Sub
Tout simplement.
"sabatier" wrote in message
news:merci, denis, pour ce complément ; moi, je crois toujours qu'il faut
mettreune variable mais je vois que ça marche sans ; je dois confondre avec la
Inputbox...
jps
"michdenis" a écrit dans le message de
news:Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" a écrit dans le
message denews:
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une
Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le
message
denews:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour jps.
Non, tu ne confonds pas avec InputBox qui, à l'instar de MsgBox, est une
fonction qui retourne une valeur.
L'idée de papou et de michdenis est d'évaluer cette valeur retournée
directement sans passer par une variable.
Exemple:
If InputBox("Votrechoix?") = "non" Then Exit Sub
est exactement la même chose que
a = InputBox("Votrechoix?")
If a = "non" Then Exit Sub
Tout simplement.
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> wrote in message
news:uWx9Sf3lEHA.3260@TK2MSFTNGP09.phx.gbl...
merci, denis, pour ce complément ; moi, je crois toujours qu'il faut
mettre
une variable mais je vois que ça marche sans ; je dois confondre avec la
Inputbox...
jps
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:uXhEuFzlEHA.536@TK2MSFTNGP11.phx.gbl...
Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message de
news:ux9qkhylEHA.3756@TK2MSFTNGP11.phx.gbl...
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une
Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:e38A6XxlEHA.3760@TK2MSFTNGP12.phx.gbl...
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le
message
de
news:962901c49712$514cf520$a501280a@phx.gbl...
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
Bonjour jps.
Non, tu ne confonds pas avec InputBox qui, à l'instar de MsgBox, est une
fonction qui retourne une valeur.
L'idée de papou et de michdenis est d'évaluer cette valeur retournée
directement sans passer par une variable.
Exemple:
If InputBox("Votrechoix?") = "non" Then Exit Sub
est exactement la même chose que
a = InputBox("Votrechoix?")
If a = "non" Then Exit Sub
Tout simplement.
"sabatier" wrote in message
news:merci, denis, pour ce complément ; moi, je crois toujours qu'il faut
mettreune variable mais je vois que ça marche sans ; je dois confondre avec la
Inputbox...
jps
"michdenis" a écrit dans le message de
news:Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" a écrit dans le
message denews:
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une
Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le
message
denews:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
merci, docm, pour ce nouvel apport d'eau au moulin alors que le meunier
dormait encore....
je pensais à une Inputbox dont la valeur ne peut être définie par
avance...
à +
jps
"docm" a écrit dans le message de
news:Bonjour jps.
Non, tu ne confonds pas avec InputBox qui, à l'instar de MsgBox, est une
fonction qui retourne une valeur.
L'idée de papou et de michdenis est d'évaluer cette valeur retournée
directement sans passer par une variable.
Exemple:
If InputBox("Votrechoix?") = "non" Then Exit Sub
est exactement la même chose que
a = InputBox("Votrechoix?")
If a = "non" Then Exit Sub
Tout simplement.
"sabatier" wrote in message
news:merci, denis, pour ce complément ; moi, je crois toujours qu'il faut
mettreune variable mais je vois que ça marche sans ; je dois confondre avec
la
Inputbox...
jps
"michdenis" a écrit dans le message de
news:Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" a écrit dans le
message denews:
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une
Msgbox?papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le
messagedenews:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
merci, docm, pour ce nouvel apport d'eau au moulin alors que le meunier
dormait encore....
je pensais à une Inputbox dont la valeur ne peut être définie par
avance...
à +
jps
"docm" <docmarti@spamcolba.net> a écrit dans le message de
news:uzartQ5lEHA.1232@TK2MSFTNGP10.phx.gbl...
Bonjour jps.
Non, tu ne confonds pas avec InputBox qui, à l'instar de MsgBox, est une
fonction qui retourne une valeur.
L'idée de papou et de michdenis est d'évaluer cette valeur retournée
directement sans passer par une variable.
Exemple:
If InputBox("Votrechoix?") = "non" Then Exit Sub
est exactement la même chose que
a = InputBox("Votrechoix?")
If a = "non" Then Exit Sub
Tout simplement.
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> wrote in message
news:uWx9Sf3lEHA.3260@TK2MSFTNGP09.phx.gbl...
merci, denis, pour ce complément ; moi, je crois toujours qu'il faut
mettre
une variable mais je vois que ça marche sans ; je dois confondre avec
la
Inputbox...
jps
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:uXhEuFzlEHA.536@TK2MSFTNGP11.phx.gbl...
Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message de
news:ux9qkhylEHA.3756@TK2MSFTNGP11.phx.gbl...
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une
Msgbox?
papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:e38A6XxlEHA.3760@TK2MSFTNGP12.phx.gbl...
Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" <anonymous@discussions.microsoft.com> a écrit dans le
message
de
news:962901c49712$514cf520$a501280a@phx.gbl...
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci
merci, docm, pour ce nouvel apport d'eau au moulin alors que le meunier
dormait encore....
je pensais à une Inputbox dont la valeur ne peut être définie par
avance...
à +
jps
"docm" a écrit dans le message de
news:Bonjour jps.
Non, tu ne confonds pas avec InputBox qui, à l'instar de MsgBox, est une
fonction qui retourne une valeur.
L'idée de papou et de michdenis est d'évaluer cette valeur retournée
directement sans passer par une variable.
Exemple:
If InputBox("Votrechoix?") = "non" Then Exit Sub
est exactement la même chose que
a = InputBox("Votrechoix?")
If a = "non" Then Exit Sub
Tout simplement.
"sabatier" wrote in message
news:merci, denis, pour ce complément ; moi, je crois toujours qu'il faut
mettreune variable mais je vois que ça marche sans ; je dois confondre avec
la
Inputbox...
jps
"michdenis" a écrit dans le message de
news:Bonjour JPS,
Il y a aussi ceci :
If MsgBox("Voulez-vous", vbYesNo) = vbYes Then
'.../... le code
Else
'.../... le code
End If
Salutations!
"sabatier" a écrit dans le
message denews:
bouhhhhhhhhhhhh, papou, pourquoi faire simple quand on peut faire
compliqué....
pourquoi aussi passer par un Select Case pour faire "parler" une
Msgbox?papou = Msgbox("Voulez-vous", vbYesNo)
if papou = vbNo Then....
if papou = vbYes Then...
ça va pas mal et c'est plus compréhensionnable...
jps
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:Bonjour
Notamment avec l'instruction MSGBOX.
Voici un exemple :
Sub test()
Select Case MsgBox("Voulez-vous", vbYesNo + VbQuestion, "Titre")
Case vbYes: MsgBox "Tu as répondu Oui", vbInformation, "Réponse"
Case vbNo: MsgBox "Tu as répondu non", vbInformation, "Réponse"
End Select
End Sub
Cordialement
Pascal
"Paulo" a écrit dans le
messagedenews:962901c49712$514cf520$
Bonjour,
Comment faire pour créer une boite de dialogue du
style "Voulez-vous...(oui/non)? "
Merci