VBA ne reconnaissant pas la propriété MsgBox VbMsgBoxStyle

-1

Je reçois le message d'erreur «Erreur de compilation: argument nommé introuvable» lorsque j'essaie d'exécuter mon code VBA. VBA ne semble pas reconnaître la dernière propriété VbMsgBoxStyle.

Dim dump As VbMsgBoxResult
dump = VBA.Interaction.MsgBox _
       Title:="Invalid Scope!", _
       Prompt:="You entered Invalid Scope !!!", _
       VbMsgBoxStyle:=vbCritical

D'autre part, mon navigateur d'objets montre ceci pour MsgBox:

Function MsgBox(Prompt, [Buttons As VbMsgBoxStyle = vbOKOnly], [Title], [HelpFile], [Context]) As VbMsgBoxResult
    Member of VBA.Interaction

Quelqu'un at-il une idée pourquoi cela se produit?

sgp667
la source

Réponses:

3

La propriété n'est Buttonspas vbMsgBoxStyle. Votre code devrait se lire comme ceci:

VBA.Interaction.MsgBox _
            Title:="Invalid Scope!", _
            Prompt:="You entered Invalid Scope !!!", _
            Buttons:=vbCritical
M. Mascaro
la source
Maintenant je me sens bête. La réponse était même sur mon écran Merci
sgp667