afficher un message à l'ouverture des feuilles

[pascal21]

bonjour
je cherche le moyen d'afficher un message msgbox ou userforrm, je ne sais pas encore) à l'ouverture des feuilles (ça je sais faire)
mais j'aimerais que ce message s'efface tout seul ou bout de quelques secondes (4 ou 5 sec)
comment faire cela
merci

 

[Pierrot93]

Re : afficher un message à l'ouverture des feuilles

Bonjour,

regarde du coté de "Application.OnTime", une petite recherche sur le forum t'apportera des exemples...

bonne journée
@+

 

[pascal21]

Re : afficher un message à l'ouverture des feuilles

bonjour et merci pierrot
je vais regarder si je peux adapter
bonne journée

 

[Pierrot93]

Re : afficher un message à l'ouverture des feuilles

Re,

A noter dans ce cas, utiliser plutôt un "userform" qu'un "msgbox"...

 

[Pierrot93]

Re : afficher un message à l'ouverture des feuilles

Re,

tu peux aussi utiliser la méthode "wait", dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
UserForm1.Show
End Sub

dans le module de l'usf :

Option Explicit
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("0:00:03")
Unload Me
End Sub

exemple ici pour 3 secondes...

 

[pascal21]

Re : afficher un message à l'ouverture des feuilles

merci pierrot ça m'aide bien car j'étais prêt à laisser tomber
je n'arrivais pas à adapter

 

[Pierrot93]

Re : afficher un message à l'ouverture des feuilles

Re,

merci pierrot ça m'aide bien car j'étais prêt à laisser tomber

Aarf, fallait revenir sur le post avec un éssai... nous t'aurions aider à le peaufiner...

bon après midi
@+

 

[laetitia90]

Re : afficher un message à l'ouverture des feuilles

bonjour pascal21,Pierrot🙂🙂
une autre methode en utilisant un popup

CreateObject("Wscript.shell").Popup "ton message", 3, "suite message!!", vbExclamation

3 correspond au temps en secondes a adapter

 

[Pierrot93]

Re : afficher un message à l'ouverture des feuilles

Re,
bonjour Laetitia🙂🙂
Aarf, bien vu Laetitia🙂, z'avais déjà vu, mais complètement zappé... pas beau vieillir...