Masquer automatiquement une zone de message

Cet exemple indique comment masquer automatiquement une zone de message après une période donnée. Dans cet exemple, une zone de message s'affiche, puis est masquée automatiquement au bout de 10 secondes.

Exemple de code fourni par : Tom Urtis, Atlas Programming Management

Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after 10 seconds
    AckTime = 10
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub

À propos du collaborateur

MVP Tom Urtis est le fondateur de gestion Atlas de programmation, un service complet Microsoft Office et société de solutions d’entreprise Excel dans la Silicon Valley. Tom comporte plus de 25 ans d’expérience dans la gestion d’entreprise et de développement Microsoft Office applications et représente co-auteur de « Macro Sainte ! Il existe 2 500 exemples VBA Excel ».

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.