OVH Cloud OVH Cloud

vbmsgboxresult

4 réponses
Avatar
antoine
Salut,

J'utilise une msgbox avec les boutons "oui" et "non".=20
Quelle est la synthaxe =E0 utiliser pour diff=E9rencier le=20
cas o=F9 l'utilisateur clique "oui" ou clique "non" ?

Merci pour tout.

4 réponses

Avatar
Raymond
Bonjour.

des exemples:
If MsgBox("Ma question", vbYesNo, "Montitre") = vbYes Then
If MsgBox("Ma question", vbYesNo, "Montitre") = vbNo Then

If Not MsgBox("Ma question", vbYesNo, "Montitre") = vbYes Then
If Not MsgBox("Ma question", vbYesNo, "Montitre") = vbNo Then


--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"antoine" a écrit dans le message de
news:09ac01c3566e$d1b77b80$
Salut,

J'utilise une msgbox avec les boutons "oui" et "non".
Quelle est la synthaxe à utiliser pour différencier le
cas où l'utilisateur clique "oui" ou clique "non" ?

Merci pour tout.
Avatar
joyeux atchoum
S'lt

excuse moi Raymond mais cela fait plusieur fois que je te vois repondre
de la meme façon et cela m'interroge ;)

des exemples:
If MsgBox("Ma question", vbYesNo, "Montitre") = vbYes Then
If MsgBox("Ma question", vbYesNo, "Montitre") = vbNo Then


pourquoi ne proposes tu pas

Reponse = MsgBox("Ma question", vbYesNo, "Montitre")
If Reponse = vbYes then
....

enfin c'est juste une interrogation
meme si cela rajoute une ligne de code je trouve cela plus lisible

ja;)
qui suppose une histoire de gout ;)

Avatar
Raymond
Bonjour.

cela ne rajoute pas seulement une ligne mais deux lignes car il faut
déclarer Reponse, et si tu ne la déclare pas, access le fera en lui
assignant Variant. Sans compter qu'avant d'écrire tes 3 lignes tu devras te
rappeler quel est le type de Reponse car il peut ne pas être compatible, et
pourquoi garder une réponse dont on ne se vervira pas. Si on s'en sert il
faut faire comme tu a ecris.
Personnellement, je ne vois pas en quoi, 3 lignes sont plus lisibles qu'une
seule, surtout si tu te trouves dans un module à 1000 lignes. Chacun a sa
façon de programmer, seul le résultat compte. Mais bien retenir que les
modules sont comme les histoires, les plus courts sont les meilleurs.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"joyeux atchoum" a écrit dans le message de
news:
S'lt

excuse moi Raymond mais cela fait plusieur fois que je te vois repondre
de la meme façon et cela m'interroge ;)

des exemples:
If MsgBox("Ma question", vbYesNo, "Montitre") = vbYes Then
If MsgBox("Ma question", vbYesNo, "Montitre") = vbNo Then


pourquoi ne proposes tu pas

Reponse = MsgBox("Ma question", vbYesNo, "Montitre")
If Reponse = vbYes then
....

enfin c'est juste une interrogation
meme si cela rajoute une ligne de code je trouve cela plus lisible

ja;)
qui suppose une histoire de gout ;)



Avatar
joyeux atchoum
oups
desolé c'etait juste pour savoir

ja;)
qui ..