Bonjour le Forum,
J'ai un petit soucis sur le code suivant :
Mes UF contiennent chacun une image de décompte (5,4,3,2,1)
Je souhaite qu'ils s'affichent automatiquement les uns après les autres après un temps défini
Dans les propriétés de chaque UF, l'option ShowModal est sur False
Le pb se fait voir dès le 2eme UF, l'image n’apparaît pas alors qu'elle a les mêmes dimensions que celle de la première.
Le UF se ferme bien et laisse place aux suivants qui eux aussi s'affichent sans l'image.... je ne vois pas ce qui bloque mis à part le timer car sans celui-ci tout s'affiche !
Sub Decompte()
UserForm1.Show
Application.Wait Now + TimeValue("00:00:2")
UserForm1.Hide
UserForm2.Show
Application.Wait Now + TimeValue("00:00:2")
UserForm2.Hide
UserForm3.Show
Application.Wait Now + TimeValue("00:00:2")
UserForm3.Hide
UserForm4.Show
Application.Wait Now + TimeValue("00:00:2")
UserForm4.Hide
UserForm5.Show
Application.Wait Now + TimeValue("00:00:2")
UserForm5.Hide
CreateObject("Wscript.shell").PopUp (" mon texte dans ma msgbox temporaire ."), 2, "", vbInformation
End Sub
Merci de votre aide !