Userform invisible avec Application.Wait

Bonjour,

J'utilise un userform comme SplashScreen et j'ai voulu 'simuler' des messages d'initialisation.
Pour ce faire à chaque changement de la valeur du caption j'utilise Application.Wait pour faire une pause de 1 seconde.

Seulement voilà, les pauses s'effectuent bien puisque à la fin ça lance le userform suivant, mais le userform Splash est invisible à l'écran.
Il est pourtant appeler avec userform.show.

J'ai tenté de mettre un Me.show dans le Userform, il s'affiche bien, mais stop ou bloque, les instructions suivante ne semble pas être effectuées.


Merci

Code:

---

1 2	Me.Splash_Message.Caption = "Bienvenue" Application.Wait Time + TimeSerial(0, 0, 1)

---

Bonjour,

Citation:

---

mais le userform Splash est invisible à l'écran.

---

peut-être voir la propriété "ShowModal" de l'Usf, de True passer à False

Merci pour la réponse mais cela ne fonctionne pas.
Quelle est la différence entre un userform ShowModal True ou False ??

Sinon j'ai testé le code test de Microsoft

Code:

---

1 2 3 4

If Application.Wait(Now + TimeValue("0:00:10")) Then MsgBox "Time expired" End If

---

ça ne fonctionne pas, ça me mets la ligne MsgBox surlignée, je ne dois pas avoir la libraries adéquat ou bien ?

Citation:

---

Quelle est la différence entre un userform ShowModal True ou False ?

---

Il faut t'armer de l'aide fournie avec F1, ça te dira

Citation:

---

Lorsqu'un objet UserForm est modal, l'utilisateur doit fournir des informations ou fermer l'objet UserForm pour pouvoir utiliser toute autre partie de l'application. Aucun code suivant n'est exécuté tant que l'objet UserForm est masqué ou déchargé. Bien que d'autres feuilles de l'application soient désactivées lorsqu'un objet UserForm est affiché, les autres applications ne le sont pas.

Lorsqu'un objet UserForm n'est pas modal, l'utilisateur peut afficher d'autres feuilles ou fenêtres sans fermer cet objet.

Les feuilles non modales ne sont pas affichées dans la barre des tâches et ne figurent pas dans l'ordre de tabulation de la fenêtre.

---

essayes avec un Usf quelconque, mets la propriété "ShowModal à False, tu pourras travailler sur ta feuille excel et L'Usf restera apparent

Merci pour vos réponses

j'ai finalement réussi avec

Code:

---

Application.OnTime Now + TimeValue("00:00:01"), "AppelMaProcedure"

---

où 1 est le temps en seconde et AppelMaProcedure le nom d'une procèdure à appeler après le laps de temps écoulé.


Merci bien et bonne soirée ;)



nb: vba excel 2013