Temps d'affache d'un Msgbox

[Luc]

Bonjour le forum,

Je voudrai faire afficher un Msgbox durant 2 secondes et qu’il dispaisse par la suite. Ce Msgbox ne doit pas avoir de botton « OK » pour le fermer plus rapidement.

Merci de votre aide

 

[Temjeh]

Bonjour

Déja donnée ici:
Sub TimedMessage()

Const Title As String = 'Self closing message box'
Const Delay As Byte = 2 ' Tps d'affichage en secondes
Const wButtons As Integer = 0 + 64 ' Boutons + icone
Dim wsh As Object, msg As String
Set wsh = CreateObject('WScript.Shell')
msg = Space(10) & 'Bonjour,' & vbLf & vbLf & 'Nous sommes le ' & Date
wsh.Popup msg, Delay, Title, wButtons
Set wsh = Nothing

End Sub

A+

Temjeh

 

[CBernardT]

Bonjour Luc,

Autant que je sache, il est impossible d'afficher une Msgbox sans au moins le bouton OK.

Pour ton problème, tu dois passer par un userform.

Cordialement

Bernard

 

[CBernardT]

Salut Temjeh,

autant pour moi :whistle:

J'aurai appris queque chose aujourdhui hi hi

A bientôt

Bernard

 

[Temjeh]

Rebonjour

Sinon fait un userform voir demo

Temjeh [file name=Timer_20060119183607.zip size=10884]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Timer_20060119183607.zip[/file]

 

[Temjeh]

Faute de nouvelle je me remercie pour le 10min que j'ai perdu

Temjeh