msgbox qui se ferme aprés 10 sec

J

jeromegmc

XLDnaute Occasionnel

• 29 Novembre 2005

• #2

Salut,

Le plus simple est d'utiliser un userform à la place du msgbox, en utilisant ce code par exemple, qui ferme le userform après 10 secondes d'ouverture:

Code:

Private Sub UserForm_Activate()

Dim NextTemps
NextTemps = Now + TimeValue('00:00:10')
Application.Wait (NextTemps)
UserForm1.Hide

End Sub

A+

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 29 Novembre 2005

• #3

bonjour

ci joint une autre possibilité

Sub msgBoxTemporaire()
CreateObject('Wscript.shell').Popup 'Le Texte', 10, 'Le Titre'
End Sub


bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 29 Novembre 2005

• #4

bonjour

ci joint une autre possibilité

Sub msgBoxTemporaire()
CreateObject('Wscript.shell').Popup 'Le Texte', 10, 'Le Titre'
End Sub


bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

A

ALex

Guest

• 29 Novembre 2005

• #5

Merci pour vos réponses

Michel j'opterais pour ta solution mais est-il possible de réduire le temps a 0.1sec?
Et aussi peut on supprimer le bonton ok??

Merci d'avance

 

Vote positif 0 Vote négatif

A

ALex

Guest

• 29 Novembre 2005

• #6

Merci pour vos réponses

Michel j'opterais pour ta solution mais est-il possible de réduire le temps a 0.1sec?
Et aussi peut on supprimer le bonton ok??

Merci d'avance

 

Vote positif 0 Vote négatif