Temps d'affache d'un Msgbox

T

Temjeh

Guest

• 19 Janvier 2006

• #2

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

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 19 Janvier 2006

• #3

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

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 19 Janvier 2006

• #4

Salut Temjeh,

autant pour moi :whistle:

J'aurai appris queque chose aujourdhui hi hi

A bientôt

Bernard

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 19 Janvier 2006

• #5

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]

 

Pièces jointes

• Timer_20060119183607.zip

  10.6 KB · Affichages: 28

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 21 Janvier 2006

• #6

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

Temjeh

 

Vote positif 0 Vote négatif