msgbox, vbYesNo

[anmy]

Bonjour à tous,

Je ne sais pas utiliser les "msgbox, vbyesno".

Merci d'avance pour votre réponse

 

[lo]

Bonjour,

If MsgBox("Question ?" & vbNewLine & "Cette opération est irréversible.", vbYesNo + vbExclamation) = vbNo Then Exit Sub

Pourrais répondre à compre vbYesNo ?
Si ce n'est pas le cas, n'hésite pas à détailler ta question en précisant ce que tu souhaites faire par exemple.



ps: d'après le post : http://www.excel-downloads.com/html/French/forum/messages/1_99028_99028.htm

 

[Pascal76]

Bonjour

tu fais dans ce style

marep = MsgBox("voulez-vous continuer ?", vbYesNo)

If marep = vbYes Then
code si oui
Else
code si non
End If


Bon courage

Pascal

 

[@+Thierry]

Hello Pascal, Anmy, Lo

Just for the Fun

Sub TheMessageBoxes()
Dim A As Byte, B As Byte, C As Byte, S As String

A = MsgBox("Etes-vous un Homme", vbQuestion + vbYesNo)
B = MsgBox("Etes-vous un Femme", vbQuestion + vbYesNo)

If A = B Then
MsgBox "Vous avez menti dans une des deux réponses", vbCritical, "ALERTE MUTANT!! lol"
Else
If A = 6 Then
C = MsgBox("Vous êtes bien un Homme, voulez vous rejouer", vbInformation + vbYesNoCancel)
S = "Madame"
Else
C = MsgBox("Vous êtes bien une Femme, voulez vous rejouer", vbInformation + vbYesNoCancel)
S = "Monsieur"
End If
End If

Select Case C
Case 2
MsgBox S & ", Vous avez clické ANNULER"
Case 6
TheMessageBoxes
Case 7
MsgBox S & ", Vous avez cliqué sur NON"
End Select
End Sub


Une manière de voire certains cas de figure en s'amusant !!!
Bon Aprèm
@+Thierry