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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
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" a écrit dans le message de groupe de 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
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" <sunburn@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : A4EBE912-3834-4940-8BED-88497969684B@microsoft.com...
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
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" a écrit dans le message de groupe de 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
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 !!!!!!
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