MsgBox et durée

Le
sunburn
Bonjour,
comment faire pour qu'une msgbox ne s'affiche que 5 secondes ? Et sans
bouton "OK" ou "Annuler".

j'ai ceci à l'heure actuelle :
-
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
rep = MsgBox("RAPPEL : un seul import de balance", vbOKOnly)
End Sub
--
Je vous remercie.
YANN
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19532531
Bonjour Sunburn,

Utilise un formulaire (userform)

et dans l'événement Useform_activate tu inscris ceci :

Dim T As Double
T = Timer + 5
Do While Timer <= T
DoEvents
Loop
Me.Hide
UnLoad Me



"sunburn" discussion :
Bonjour,
comment faire pour qu'une msgbox ne s'affiche que 5 secondes ? Et sans
bouton "OK" ou "Annuler".

j'ai ceci à l'heure actuelle :
----
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
rep = MsgBox("RAPPEL : un seul import de balance", vbOKOnly)
End Sub
-----
Je vous remercie.
YANN
FFO
Le #19532521
Salut à toi

cette ligne devrait convenir :

CreateObject("WScript.Shell").Popup ("RAPPEL : un seul import de balance"), 5

Une boîte de dialogue s'affiche pendant 5 secondes et disparait
automatiquement

Un bouton "OK" est malgré tout présent mais n'est pas à utiliser
obligatoirement

On peut l'activer pour fermer cette boîte plus rapidemment

Celà devrait te convenir

Dis moi !!!!!!
sunburn
Le #19539851
Bonjour FFO,
je te remercie, ça me va bien (j'ai mis 1 seconde, c'est suffisant).

Yann

"FFO" a écrit :

Salut à toi

cette ligne devrait convenir :

CreateObject("WScript.Shell").Popup ("RAPPEL : un seul import de balance"), 5

Une boîte de dialogue s'affiche pendant 5 secondes et disparait
automatiquement

Un bouton "OK" est malgré tout présent mais n'est pas à utiliser
obligatoirement

On peut l'activer pour fermer cette boîte plus rapidemment

Celà devrait te convenir

Dis moi !!!!!!



Publicité
Poster une réponse
Anonyme