Msgbox (\"xxx\", VbYesNo)[Résolu]

[Gruick]

Bonjour à tous
Dans ce cas, j'aimerais que le No soit mis en valeur au lieu du Yes, VbNoYes en quelque sorte.
En voici un exemple flagrant :

Sub Macro1()
If MsgBox('Un dernier pour la route ?', vbYesNo) = vbNo Then
    MsgBox 'Bon voyage !'
Else: MsgBox 'Restes ici, et cuves !'
End If
End Sub

Bon, c'est l'heure de l'apéro....
Merci d'aa vvv ance !

Message édité par: Gruick, à: 02/05/2006 12:04

 

[Davidc57]

Re:Msgbox ("xxx", VbYesNo)

Bonjour Gruick, bonjour le forum,

Comme ceci ca te convient ?

If MsgBox('Un dernier pour la route ?', vbYesNo + vbDefaultButton2) = vbNo Then
    MsgBox 'Bon voyage !'
Else: MsgBox 'Restes ici, et cuves !'
End If

 

[PascalXLD]

Re:Msgbox ("xxx", VbYesNo)

Bonjour

Si j'ai bien compris essaies ceci :

Sub Macro1()
If MsgBox('Un dernier pour la route ?', vbYesNo + vbDefaultButton2) = vbNo Then
    MsgBox 'Bon voyage !'
Else: MsgBox 'Restes ici, et cuves !'
End If
End Sub

Bonne journée

 

[PascalXLD]

Re:Msgbox ("xxx", VbYesNo)

Oups

Excuse David pour le carambolage. Bon on a comprisla même chose..

 

[Davidc57]

Re:Msgbox ("xxx", VbYesNo)

Pas de problème Pascal,

Quand tu as voulu répondre j'avais pas encore répondu, ca doit être ca !

Au moins, ca confirme, plus aucun doute possible.
Bonne journée.
David

 

[Gruick]

Re:Msgbox ("xxx", VbYesNo)

Merci David et Pascal,
Tournée générale, c'est pour moi !
Le secrêt était dans le +, j'avais mis une virgule.
(je devais être saoul, c'était une macro au vin blanc).
A plus et merci encore.