faire une pause...

faire une pause... - VB/VBA/VBS - Programmation

Marsh Posté le 16-06-2005 à 10:26:35    

Bonjour!
Je voudrais faire une pause dans mon programme jusqu a ce que l'utilisateur clique sur un bouton "reprendre". Je m explique: j ai un userform avec un bouton "pause" et je veut que quand l utilisateur clique sur "pause", le programme s'arrete pour que l utilisateur puisse changer des trucs sur la feuille excel.
J ai essayé de faire avec l instruction stop. Mais avec stop, le programme s'arrete dans la macro et l'utilisateur n'a pas besoin de voir la macro! En plus, l'utilisateur ne eput rien modifier dans la feuille excel quand le programme est en mode arrêt.
J ai aussi vu l instruction wait or wait est en fonction d un temps. Ce qui ne me convient pas non plus!
Quelqu un saurait quel instruction je pourrais utiliser?
Mecri d avance

Reply

Marsh Posté le 16-06-2005 à 10:26:35   

Reply

Marsh Posté le 16-06-2005 à 14:10:58    

C'est intéressant ce pb, personne peut aider?

Reply

Marsh Posté le 16-06-2005 à 14:13:16    

Coucou !!
 
Moi j'ai ca:
 

Code :
  1. Public Sub wait(length)
  2.     newHour = Hour(Now())
  3.     newMinute = Minute(Now())
  4.     newSecond = Second(Now()) + length
  5.     waitTime = TimeSerial(newHour, newMinute, newSecond)
  6.     Application.wait waitTime
  7. End Sub


 
Voilà si ca peu vous aider :D
 
Bonne après-midi !


Message édité par dough29 le 16-06-2005 à 14:14:22
Reply

Marsh Posté le 16-06-2005 à 14:17:22    


Ok merci, c'est une solution.
 
Mais est il possible de stopper le programme en milieu de macro, en laissant l'utilisateur agir, et de la relancer ensuite sans contrainte de temps.
 
A+

Reply

Marsh Posté le 16-06-2005 à 14:57:22    

Merci dough29 mais c est pas ca que je veux...
Je connaissait le wait mais le probleme avec wait c est que il met en pause un temps défini et que pendant ce temps l'utilisateur ne peut pas agir sur l'application.
Je sens que Jerome sait la solution...allez stp, ca m arrangerai beaucoup....mais si tu ne veux pas me donner la reponse, peux tu me donner l adresse d'un site ou chercher ca?

Reply

Marsh Posté le 16-06-2005 à 15:00:53    


Non je ne connais pas la réponse, en fait elle m'interesse.

Reply

Marsh Posté le 16-06-2005 à 15:01:28    

c est donc peut etre pas possible?

Reply

Marsh Posté le 16-06-2005 à 15:02:54    

J'ai poster ta question dans le forum suivant:
http://www.excel-downloads.com/forums/2.htm

Reply

Marsh Posté le 16-06-2005 à 15:38:46    

Sur l'autre forum on me demande un exemple concret, et je n'en n'ai pas, tu peux venir pour joindre un fichier, please, merci.


Message édité par jerome-gmc le 16-06-2005 à 15:39:52
Reply

Marsh Posté le 16-06-2005 à 15:41:25    

voila c fait! Mais tu as donné une reponse en meme temps...

Reply

Marsh Posté le 16-06-2005 à 15:41:25   

Reply

Marsh Posté le 16-06-2005 à 15:44:17    


 
Désolé, j'ai fais un copier coller, tu peux peut être joindre un fichier ( zipé <50 MO et sans espace) ça sera plus simple pour tout le monde.

Reply

Marsh Posté le 16-06-2005 à 19:26:40    

public ValPause as string
 
sub attente
 
UserFormPause.show
do while ValPause = 1
doevents
loop
 
exit sub
 
dans le userform un clic sur "pause" doit mettre ValPause a 1


Message édité par scuny le 16-06-2005 à 19:27:10
Reply

Marsh Posté le 07-03-2006 à 19:33:41    

bonjour,  
je serai bien intéressé pour faire une pause sur mon usage de useform et reprendre excel puis revenir.*il semble que vous ayez trouvé un truc.
pourriez vous me le transmettre.
 
merci grandement
f

Reply

Marsh Posté le 07-03-2006 à 20:33:27    

Supposons que tu aies ces objets :

  • Un bouton "BoutonFeuille" sur la feuille Excel
  • Une UserForm nommé "UserForm1"
  • Un bouton "Pause" sur UserForm1


Tu te retrouves avec ceci :
BoutonFeuille affiche UserForm1 :

Private Sub BoutonFeuille_Click()
    UserForm1.Show
End Sub


BoutonPause cache UserForm1 :

Private Sub BoutonPause_Click()
    UserForm1.Hide
End Sub


Message édité par juju2k le 07-03-2006 à 20:35:17
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed