Bonjour les forumeux
J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule
ligne de code.
J'essaie de me faire un pense bête à conserver pour les cas les plus
courant.
L'aide VBA me donne un code de 12 lignes pour un seul cas.
Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement
Sub essaimessage()
Dim Response
MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER"
MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION"
Response = Msg
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION"
Response = Msg
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
If Response = vbCancel Then MsgBox "Vous avez annulé"
End Sub
Salutations
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilles MOUGNOZ
Bonjour, Milloche
Pour récupérer la réponse à une MsgBox, il faut l'écrire ainsi:
Response = MsgBox("OUI ET NON", vbcritifal + vbYesNo, "ATTENTION")
C'est mieux ? -- Bonne continuation ------------------------------------------------------------------------------------------- "milloche" a écrit :
Bonjour les forumeux J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule ligne de code. J'essaie de me faire un pense bête à conserver pour les cas les plus courant. L'aide VBA me donne un code de 12 lignes pour un seul cas. Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement Sub essaimessage() Dim Response MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER" MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" If Response = vbCancel Then MsgBox "Vous avez annulé" End Sub Salutations
Bonjour, Milloche
Pour récupérer la réponse à une MsgBox, il faut l'écrire ainsi:
Response = MsgBox("OUI ET NON", vbcritifal + vbYesNo, "ATTENTION")
C'est mieux ?
--
Bonne continuation
-------------------------------------------------------------------------------------------
"milloche" a écrit :
Bonjour les forumeux
J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule
ligne de code.
J'essaie de me faire un pense bête à conserver pour les cas les plus
courant.
L'aide VBA me donne un code de 12 lignes pour un seul cas.
Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement
Sub essaimessage()
Dim Response
MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER"
MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION"
Response = Msg
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION"
Response = Msg
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
If Response = vbCancel Then MsgBox "Vous avez annulé"
End Sub
Salutations
Pour récupérer la réponse à une MsgBox, il faut l'écrire ainsi:
Response = MsgBox("OUI ET NON", vbcritifal + vbYesNo, "ATTENTION")
C'est mieux ? -- Bonne continuation ------------------------------------------------------------------------------------------- "milloche" a écrit :
Bonjour les forumeux J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule ligne de code. J'essaie de me faire un pense bête à conserver pour les cas les plus courant. L'aide VBA me donne un code de 12 lignes pour un seul cas. Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement Sub essaimessage() Dim Response MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER" MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" If Response = vbCancel Then MsgBox "Vous avez annulé" End Sub Salutations
LSteph
Bonjour,
si tu nous disais plus clairement ce que tu veux faire plutôt que comment tu t'y prends pour ne pas y arriver!
sinon oui on peut faire en 1 seule ligne un Msgbox avec vbYesNo
@+
-- lSteph
On 2 juil, 12:15, "milloche" wrote:
Bonjour les forumeux J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule ligne de code. J'essaie de me faire un pense bête à conserver pour les cas les plus courant. L'aide VBA me donne un code de 12 lignes pour un seul cas. Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement Sub essaimessage() Dim Response MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER" MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" If Response = vbCancel Then MsgBox "Vous avez annulé" End Sub Salutations
Bonjour,
si tu nous disais plus clairement ce que tu veux faire plutôt que
comment tu t'y prends pour ne pas y arriver!
sinon oui on peut faire en 1 seule ligne un Msgbox avec vbYesNo
@+
--
lSteph
On 2 juil, 12:15, "milloche" <mille.jean-marie...@neuf.fr> wrote:
Bonjour les forumeux
J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule
ligne de code.
J'essaie de me faire un pense bête à conserver pour les cas les plus
courant.
L'aide VBA me donne un code de 12 lignes pour un seul cas.
Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement
Sub essaimessage()
Dim Response
MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER"
MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION"
Response = Msg
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION"
Response = Msg
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
If Response = vbCancel Then MsgBox "Vous avez annulé"
End Sub
Salutations
si tu nous disais plus clairement ce que tu veux faire plutôt que comment tu t'y prends pour ne pas y arriver!
sinon oui on peut faire en 1 seule ligne un Msgbox avec vbYesNo
@+
-- lSteph
On 2 juil, 12:15, "milloche" wrote:
Bonjour les forumeux J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule ligne de code. J'essaie de me faire un pense bête à conserver pour les cas les plus courant. L'aide VBA me donne un code de 12 lignes pour un seul cas. Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement Sub essaimessage() Dim Response MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER" MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" If Response = vbCancel Then MsgBox "Vous avez annulé" End Sub Salutations
milloche
Merci Gilles C'est exactement çà. J'avais pas pigé qu'il fallait reprendre entièrement et exactement la description de la msgbox. Merci LSteh pour ton intérêt. C'est résolu. A la prochaine. JMM "LSteph" a écrit dans le message de news:
Bonjour,
si tu nous disais plus clairement ce que tu veux faire plutôt que comment tu t'y prends pour ne pas y arriver!
sinon oui on peut faire en 1 seule ligne un Msgbox avec vbYesNo
@+
-- lSteph
On 2 juil, 12:15, "milloche" wrote:
Bonjour les forumeux J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule ligne de code. J'essaie de me faire un pense bête à conserver pour les cas les plus courant. L'aide VBA me donne un code de 12 lignes pour un seul cas. Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement Sub essaimessage() Dim Response MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER" MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" If Response = vbCancel Then MsgBox "Vous avez annulé" End Sub Salutations
Merci Gilles
C'est exactement çà.
J'avais pas pigé qu'il fallait reprendre entièrement et exactement la
description de la msgbox.
Merci LSteh pour ton intérêt. C'est résolu.
A la prochaine.
JMM
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de news:
1e9636c6-5e75-4c63-bf13-7f2e5778a147@d32g2000yqh.googlegroups.com...
Bonjour,
si tu nous disais plus clairement ce que tu veux faire plutôt que
comment tu t'y prends pour ne pas y arriver!
sinon oui on peut faire en 1 seule ligne un Msgbox avec vbYesNo
@+
--
lSteph
On 2 juil, 12:15, "milloche" <mille.jean-marie...@neuf.fr> wrote:
Bonjour les forumeux
J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule
ligne de code.
J'essaie de me faire un pense bête à conserver pour les cas les plus
courant.
L'aide VBA me donne un code de 12 lignes pour un seul cas.
Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement
Sub essaimessage()
Dim Response
MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER"
MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION"
Response = Msg
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION"
Response = Msg
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
If Response = vbCancel Then MsgBox "Vous avez annulé"
End Sub
Salutations
Merci Gilles C'est exactement çà. J'avais pas pigé qu'il fallait reprendre entièrement et exactement la description de la msgbox. Merci LSteh pour ton intérêt. C'est résolu. A la prochaine. JMM "LSteph" a écrit dans le message de news:
Bonjour,
si tu nous disais plus clairement ce que tu veux faire plutôt que comment tu t'y prends pour ne pas y arriver!
sinon oui on peut faire en 1 seule ligne un Msgbox avec vbYesNo
@+
-- lSteph
On 2 juil, 12:15, "milloche" wrote:
Bonjour les forumeux J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule ligne de code. J'essaie de me faire un pense bête à conserver pour les cas les plus courant. L'aide VBA me donne un code de 12 lignes pour un seul cas. Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement Sub essaimessage() Dim Response MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER" MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" If Response = vbCancel Then MsgBox "Vous avez annulé" End Sub Salutations
milloche
RESULTAT FINAL après qques bidouillages : Sub essaimessage() MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER" Response = MsgBox("OUI ET NON", vbcritifal + vbYesNo, "ATTENTION") If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" Response = MsgBox("OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION") If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" If Response = vbCancel Then MsgBox "Vous avez annulé" End Sub JE SUIS CONTENT
"milloche" a écrit dans le message de news: uVEynbw%
Merci Gilles C'est exactement çà. J'avais pas pigé qu'il fallait reprendre entièrement et exactement la description de la msgbox. Merci LSteh pour ton intérêt. C'est résolu. A la prochaine. JMM "LSteph" a écrit dans le message de news:
Bonjour,
si tu nous disais plus clairement ce que tu veux faire plutôt que comment tu t'y prends pour ne pas y arriver!
sinon oui on peut faire en 1 seule ligne un Msgbox avec vbYesNo
@+
-- lSteph
On 2 juil, 12:15, "milloche" wrote:
Bonjour les forumeux J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule ligne de code. J'essaie de me faire un pense bête à conserver pour les cas les plus courant. L'aide VBA me donne un code de 12 lignes pour un seul cas. Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement Sub essaimessage() Dim Response MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER" MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" If Response = vbCancel Then MsgBox "Vous avez annulé" End Sub Salutations
RESULTAT FINAL après qques bidouillages :
Sub essaimessage()
MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER"
Response = MsgBox("OUI ET NON", vbcritifal + vbYesNo, "ATTENTION")
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
Response = MsgBox("OUI et NON et ANNULE", vbcritifal + vbYesNoCancel,
"CAUTION")
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
If Response = vbCancel Then MsgBox "Vous avez annulé"
End Sub
JE SUIS CONTENT
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de news:
uVEynbw%23JHA.4984@TK2MSFTNGP05.phx.gbl...
Merci Gilles
C'est exactement çà.
J'avais pas pigé qu'il fallait reprendre entièrement et exactement la
description de la msgbox.
Merci LSteh pour ton intérêt. C'est résolu.
A la prochaine.
JMM
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de news:
1e9636c6-5e75-4c63-bf13-7f2e5778a147@d32g2000yqh.googlegroups.com...
Bonjour,
si tu nous disais plus clairement ce que tu veux faire plutôt que
comment tu t'y prends pour ne pas y arriver!
sinon oui on peut faire en 1 seule ligne un Msgbox avec vbYesNo
@+
--
lSteph
On 2 juil, 12:15, "milloche" <mille.jean-marie...@neuf.fr> wrote:
Bonjour les forumeux
J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une
seule
ligne de code.
J'essaie de me faire un pense bête à conserver pour les cas les plus
courant.
L'aide VBA me donne un code de 12 lignes pour un seul cas.
Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement
Sub essaimessage()
Dim Response
MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER"
MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION"
Response = Msg
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION"
Response = Msg
If Response = vbYes Then MsgBox "Vous avez dit OUI"
If Response = vbNo Then MsgBox "Vous avez dit NON"
If Response = vbCancel Then MsgBox "Vous avez annulé"
End Sub
Salutations
RESULTAT FINAL après qques bidouillages : Sub essaimessage() MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER" Response = MsgBox("OUI ET NON", vbcritifal + vbYesNo, "ATTENTION") If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" Response = MsgBox("OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION") If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" If Response = vbCancel Then MsgBox "Vous avez annulé" End Sub JE SUIS CONTENT
"milloche" a écrit dans le message de news: uVEynbw%
Merci Gilles C'est exactement çà. J'avais pas pigé qu'il fallait reprendre entièrement et exactement la description de la msgbox. Merci LSteh pour ton intérêt. C'est résolu. A la prochaine. JMM "LSteph" a écrit dans le message de news:
Bonjour,
si tu nous disais plus clairement ce que tu veux faire plutôt que comment tu t'y prends pour ne pas y arriver!
sinon oui on peut faire en 1 seule ligne un Msgbox avec vbYesNo
@+
-- lSteph
On 2 juil, 12:15, "milloche" wrote:
Bonjour les forumeux J'ai vu quelques part ici que l'on peut balancer un Msgbox avec une seule ligne de code. J'essaie de me faire un pense bête à conserver pour les cas les plus courant. L'aide VBA me donne un code de 12 lignes pour un seul cas. Voici ce que j'ai fait mais qui ne marche pas, ou pas bien évidement Sub essaimessage() Dim Response MsgBox "OK SEUL", vbcritifal + vbOKOnly, "DANGER" MsgBox "OUI ET NON", vbcritifal + vbYesNo, "ATTENTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" MsgBox "OUI et NON et ANNULE", vbcritifal + vbYesNoCancel, "CAUTION" Response = Msg If Response = vbYes Then MsgBox "Vous avez dit OUI" If Response = vbNo Then MsgBox "Vous avez dit NON" If Response = vbCancel Then MsgBox "Vous avez annulé" End Sub Salutations