aide sur la MsgBox

K@ribou77 ^_^

voila mon petit soucis ....

j'ai besoin d'une msgbox composé de 2 boutons Ok et Cancel ... j'ai trouver comment la créer mais :

1) j'aimerais attribuer des labels à l'un de ces boutons : "Plus tard" à la place de "Annuler"

2) j'aimerais arriver à faire l'action suivante :
SI click sur cancel ALORS [action]
SINON
SI click sur OK ALORS
Exit sub

[action] étant deja définie
mais je n'arrive pas a faire ce que je viens d'expliquer algorithmiquement.

merci d'avance

Karibou ^_^

K@ribou77 ^_^


-------------------------------
Réponse au message :
-------------------------------

> K@ribou77 ^_^
>
> voila mon petit soucis ....
>
> j'ai besoin d'une msgbox composé de 2 boutons Ok et Cancel ... j'ai trouver comment la créer mais :
>
> 1) j'aimerais attribuer des labels à l'un de ces boutons : "Plus tard" à la place de "Annuler"
>
> 2) j'aimerais arriver à faire l'action suivante :
> SI click sur cancel ALORS [action]
> SINON
> SI click sur OK ALORS
> Exit sub
>
> [action] étant deja définie
> mais je n'arrive pas a faire ce que je viens d'expliquer algorithmiquement.
>
> merci d'avance
>
> Karibou ^_^

pour le plus tard, je ne crois pas que ce soit possible, à moins de créer une form qui te servira de msgbox
sinon, pour récupérer le click sur cancel, il faut faire comme suit :

dim rep as integer
rep=msgbox(tonTexte,vbokcancel,tontitre)
if rep=vbcancel then
action
elseif rep=vbok then
exit sub
endif



-------------------------------
Réponse au message :
-------------------------------

>
> K@ribou77 ^_^
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > K@ribou77 ^_^
> >
> > voila mon petit soucis ....
> >
> > j'ai besoin d'une msgbox composé de 2 boutons Ok et Cancel ... j'ai trouver comment la créer mais :
> >
> > 1) j'aimerais attribuer des labels à l'un de ces boutons : "Plus tard" à la place de "Annuler"
> >
> > 2) j'aimerais arriver à faire l'action suivante :
> > SI click sur cancel ALORS [action]
> > SINON
> > SI click sur OK ALORS
> > Exit sub
> >
> > [action] étant deja définie
> > mais je n'arrive pas a faire ce que je viens d'expliquer algorithmiquement.
> >
> > merci d'avance
> >
> > Karibou ^_^
>

bjr !
je ve po faire le gars chiant et miticuleux, mais si jai bien compris un elseif est inutile puisque qu'il ni a que deux possiblité !
Sinon pour le Msgbox effectivement la seule solutions serait de créer un form !
rajourter les textes et les deux bouton
et le code donneré :
Si condition = vrai alors
ACTION 1
sinon
ACTION 2
Fin si
Le tuc par contre la ou je bloque serait de savoir comment définir un clique sur tel tou tel bouton ! est cette question a un réponse qu'il est surement bon de connaitre !
qq'1 a une idée ?

Une autre solution de faciliter ( et la meilleure je pense) serait de tout simplement appliquer chaque action a chaque bouton !


KC62

on a pas toujours les solutions a chaque probleme mais chaque probleme a une solutions ... spéciale devellopeur sa !! :-D


-------------------------------
Réponse au message :
-------------------------------

> pour le plus tard, je ne crois pas que ce soit possible, à moins de créer une form qui te servira de msgbox
> sinon, pour récupérer le click sur cancel, il faut faire comme suit :
>
> dim rep as integer
> rep=msgbox(tonTexte,vbokcancel,tontitre)
> if rep=vbcancel then
> action
> elseif rep=vbok then
> exit sub
> endif
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> > K@ribou77 ^_^
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > K@ribou77 ^_^
> > >
> > > voila mon petit soucis ....
> > >
> > > j'ai besoin d'une msgbox composé de 2 boutons Ok et Cancel ... j'ai trouver comment la créer mais :
> > >
> > > 1) j'aimerais attribuer des labels à l'un de ces boutons : "Plus tard" à la place de "Annuler"
> > >
> > > 2) j'aimerais arriver à faire l'action suivante :
> > > SI click sur cancel ALORS [action]
> > > SINON
> > > SI click sur OK ALORS
> > > Exit sub
> > >
> > > [action] étant deja définie
> > > mais je n'arrive pas a faire ce que je viens d'expliquer algorithmiquement.
> > >
> > > merci d'avance
> > >
> > > Karibou ^_^
> >
>

en effet, le elseif est inutile.
Concernant l'appui sur un ou l'autre bouton, une des possibiltés serait d'utiliser une variable publique, peut importe le type. Une click sur l'un des boutons affecte à cette variable une valeur, un click sur l'autre bouton lui affecte une autre valeur, il suffit ensuite de tester la valeur de cette variable dans le if ... then



-------------------------------
Réponse au message :
-------------------------------

> bjr !
> je ve po faire le gars chiant et miticuleux, mais si jai bien compris un elseif est inutile puisque qu'il ni a que deux possiblité !
> Sinon pour le Msgbox effectivement la seule solutions serait de créer un form !
> rajourter les textes et les deux bouton
> et le code donneré :
> Si condition = vrai alors
> ACTION 1
> sinon
> ACTION 2
> Fin si
> Le tuc par contre la ou je bloque serait de savoir comment définir un clique sur tel tou tel bouton ! est cette question a un réponse qu'il est surement bon de connaitre !
> qq'1 a une idée ?
>
> Une autre solution de faciliter ( et la meilleure je pense) serait de tout simplement appliquer chaque action a chaque bouton !
>
>
> KC62
>
> on a pas toujours les solutions a chaque probleme mais chaque probleme a une solutions ... spéciale devellopeur sa !! :-D
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > pour le plus tard, je ne crois pas que ce soit possible, à moins de créer une form qui te servira de msgbox
> > sinon, pour récupérer le click sur cancel, il faut faire comme suit :
> >
> > dim rep as integer
> > rep=msgbox(tonTexte,vbokcancel,tontitre)
> > if rep=vbcancel then
> > action
> > elseif rep=vbok then
> > exit sub
> > endif
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > >
> > > K@ribou77 ^_^
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > K@ribou77 ^_^
> > > >
> > > > voila mon petit soucis ....
> > > >
> > > > j'ai besoin d'une msgbox composé de 2 boutons Ok et Cancel ... j'ai trouver comment la créer mais :
> > > >
> > > > 1) j'aimerais attribuer des labels à l'un de ces boutons : "Plus tard" à la place de "Annuler"
> > > >
> > > > 2) j'aimerais arriver à faire l'action suivante :
> > > > SI click sur cancel ALORS [action]
> > > > SINON
> > > > SI click sur OK ALORS
> > > > Exit sub
> > > >
> > > > [action] étant deja définie
> > > > mais je n'arrive pas a faire ce que je viens d'expliquer algorithmiquement.
> > > >
> > > > merci d'avance
> > > >
> > > > Karibou ^_^
> > >
> >
>

Bonjour, voici ce que j'utililse :

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, Myvariant
Msg = "Est ce que le client désire une facture ?"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "Facture ?"
Help = "DEMO.HLP"
Ctxt = 1000 '
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Myvariant = "Yes"
MsgBox "la réponse est oui"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
ElseIf Response = vbNo Then    '
Myvariant = "No"
MsgBox "la réponse est non"
End If
End Sub