Bonjour
l'appli que j'ai construit se termine je voudrai créer un userform temporaire au lancement de celle-ci
j'ai testé la fonction sleep, les boucles de temporisation rien n'y fait, La page d'accueil ne se ferme pas et ne lance pas
la userfom de travail
Des pistes
Merc
Eric
http://www.excelabo.net/xl/userforms.php#accueil -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Eric_M" a écrit dans le message de news:
Bonjour, l'appli que j'ai construit se termine je voudrai créer un userform temporaire au lancement de celle-ci.
j'ai testé la fonction sleep, les boucles de temporisation rien n'y fait, La page d'accueil ne se ferme pas et ne lance pas
la userfom de travail. Des pistes? Merci Eric
Hervé
Salut Eric, A mettre dans le module de ta Form :
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(Milliseconde As Long) Dim Arret As Long Arret = GetTickCount() + Milliseconde Do While GetTickCount() < Arret DoEvents Loop End Sub
Private Sub UserForm_Activate() Dim I As Integer Do While I < 5 'réglage de durée ici ... Minuterie 500 'et ici. I = I + 1 Loop Unload UserForm1 'Ici lancement de ta proc... End Sub
Hervé.
"Eric_M" a écrit dans le message news:
Bonjour, l'appli que j'ai construit se termine je voudrai créer un userform temporaire au lancement de celle-ci.
j'ai testé la fonction sleep, les boucles de temporisation rien n'y fait, La page d'accueil ne se ferme pas et ne lance pas
la userfom de travail. Des pistes? Merci Eric
Salut Eric,
A mettre dans le module de ta Form :
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
DoEvents
Loop
End Sub
Private Sub UserForm_Activate()
Dim I As Integer
Do While I < 5 'réglage de durée ici ...
Minuterie 500 'et ici.
I = I + 1
Loop
Unload UserForm1
'Ici lancement de ta proc...
End Sub
Hervé.
"Eric_M" <anonymous@discussions.microsoft.com> a écrit dans le message news:
9E7A1288-7AEB-4301-A6F6-27FD6BB426F0@microsoft.com...
Bonjour,
l'appli que j'ai construit se termine je voudrai créer un userform
temporaire au lancement de celle-ci.
j'ai testé la fonction sleep, les boucles de temporisation rien n'y fait,
La page d'accueil ne se ferme pas et ne lance pas
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(Milliseconde As Long) Dim Arret As Long Arret = GetTickCount() + Milliseconde Do While GetTickCount() < Arret DoEvents Loop End Sub
Private Sub UserForm_Activate() Dim I As Integer Do While I < 5 'réglage de durée ici ... Minuterie 500 'et ici. I = I + 1 Loop Unload UserForm1 'Ici lancement de ta proc... End Sub
Hervé.
"Eric_M" a écrit dans le message news:
Bonjour, l'appli que j'ai construit se termine je voudrai créer un userform temporaire au lancement de celle-ci.
j'ai testé la fonction sleep, les boucles de temporisation rien n'y fait, La page d'accueil ne se ferme pas et ne lance pas
