Message temporaire qui s'enlève automatiquement ?

Version imprimable

21/08/2016, 22h45
membreComplexe12

Message temporaire qui s'enlève automatiquement ?

Bonsoir tous,

d'habitude, lorsque je veux afficher un message en VBA, j'utilise une "MsgBox" :

Code:

MsgBox("azerty")

Le problème que j'ai avec ça c'est que ça oblige l'utilisateur à cliquer sur le bouton OK.

Or j'aimerais, pour une application spécifique, afficher un nombre à l'utilisateur juste pour l'informer et que le message s'efface automatiquement sans qu'il n'ait à cliqué.

Pourriez vous me montrer comment faire cette fenêtre qui s'efface seule au bout de 2sec ?

merci

Bonjour,

Dans un module standard :

Code:

1
2
3
4
5
6
 
Sub Fermer()
 
    Unload UserForm1
 
End Sub

Dans le module de la Form appelée "UserForm1" :

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub UserForm_Activate()
 
    ' le nombre dans un Label
    Me.Label1.Caption = 10
 
    '2 secondes de tempo
    Application.OnTime Now + TimeValue("00:00:02"), "Fermer"
 
End Sub

22/08/2016, 11h07
Marc-L

Bonjour,

en dehors d'utiliser la méthode Wait au sein de l'ouverture d'un UserForm avant de le fermer

il y a aussi ceci : CreateObject("WScript.Shell").Popup "Message", 2, "Titre", vbOKOnly …

_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
22/08/2016, 11h17
Jean-Philippe André

Salut,

si tu souhaites afficher plus que du texte, je te recommande la lecture du tuto sur le splashscreen de Loufab =]
http://loufab.developpez.com/tutorie.../splashscreen/

Pour information, il est aussi possible de faire une boite de message avec une durée limitée, et récupérer le bouton choisi ou non :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub test()
 
If MsgBoxTimer("Vous avez 3 secondes pour annuler le traitement...", vbCritical + vbYesNo, _
               "Confirmez vous le traitement ?", 3) = vbNo Then Exit Sub
 
End Sub
 
'-------------------------------------------------------------------------------
Function MsgBoxTimer(Message As String, Boutons As VbMsgBoxStyle, Titre As String, _
                     DuréeAffichage As Byte, Optional BloqueAction As Boolean = False) As VbMsgBoxResult
'-------------------------------------------------------------------------------
' Affiche une boite de message comme MsgBox, mais avec une durée d'affichage maximale
' qui peut être déterminée.
'-------------------------------------------------------------------------------
' Message : Message à afficher comme pour la fonction MsgBox.
' Boutons : Les mêmes boutons que pour la fonction MsgBox.
' Titre : Le titre de la boite comme pour la fonction MsgBox.
' Durée : Durée en seconde d'affichage de la boite. Sauf si un choix est fait par l'utilisateur.
' BloqueAction : Si True alors bloque le clavier et la souris (mais ça marche pas).
' Retourne : -1 si pas de choix, ou une constante VbMsgBoxResult comme pour MsgBox.
'-------------------------------------------------------------------------------
Dim InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
MsgBoxTimer = InfoBox.PopUp(Message, DuréeAffichage, Titre, Boutons)
End Function

22/08/2016, 14h07
Jean-Philippe André

Ce qui correspond à l'exemple proposé plus tôt par Marc-L ;)
22/08/2016, 14h51
membreComplexe12

merci beaucoup pour votre aide, je vais regarder tout ceci :D