Pas de prise en compte d'une instrution dans une MsgBox

Salut,

Je note quelque chose de bizarre dans le résultat de ce code.

Dim Reply As Long ...
...
    MsgBox "Voulez-vous continuer ?" & Chr(10), vbYesNo + vbQuestion, "..."
    If Reply <> vbYes Then
    ActiveSheet.Delete
    Unload Me ' C'est la USF 1, je n'arrive pas à la laisser apparante avec les données rentrées avant de lancer la MsgBox , donc je bidouille en la rebootant :(
    USF1.Show
    Else
    Unload Me
    USF2.Show
    End If

Que je réponde par oui ou non dans la msgbox, le code n'exécute que la première partie de ma condition.

J'ai tourné aussi de cette façon

If Reply = vbNo Then .... 

Et dans ce cas c'est seulement la 2e condition qu'il effectue.

Pourquoi ?

Bonjour,

De la façon dont tu écrit le code c'est simplement un message d'avertissement.

Pour qu'il devienne une question il faut le déclarer comme une fonction...

    if MsgBox("Voulez-vous continuer ?", vbYesNo + vbQuestion, "Titre") <> vbYes Then
        '........
    Else
        '.........
    End If

A+

Ok thank you,

Ca marche nickel

Tcho à la prochaine