Faire une pause dans une boucle FOR ?

Faire une pause dans une boucle FOR ? - VB/VBA/VBS - Programmation

Marsh Posté le 03-03-2011 à 12:04:35    

Bonjour,
 
quelqu'un aurait une idée de comment faire une pause dans une boucle for.
Je souhaite par exemple quand je clique sur la touche espace arrête la boucle et des que je reclique dessus(ou une autre touche) cela relance la boucle la ou elle s'est arreté.
 
Merci
 
 
Sub test()
   Dim i As Integer  
    For i = 1 To 30
         [INSTRUCTION]
    Next i
 
End Sub
 

Reply

Marsh Posté le 03-03-2011 à 12:04:35   

Reply

Marsh Posté le 03-03-2011 à 15:49:50    

regarde voir si ca marche ça :
 
http://www.vbfrance.com/forum/sujet-MACRO-EVENEMENT-TOUCHE-CLAVIER-EXCEL_828484.aspx
 
sinon je me rappelle avoir trouvé une fois une astuce pour rajouter des evenements dans le thisworkbook, je crois bien qu'il y avait l'evenement lorsqu'on appuie sur une touche. Si je retrouve le site qui explique comment faire j'éditerai mon message
 
avec la fonction du site la, tu peux rajouter un DoEvents en début de chaque boucle pour laisser l'evenement se déclencher et créer une variable booléenne globale qui passe en False lorsque l'evenement se produit et repasse en True lorsque tu reappuie par la suite. quand la variable est en false tu peux rajouter une boucle infinie et en sortir seulement lorsque la variable passe en True. (ne pas oublier de rajouter un doevents dans la boucle et rajoute l'API Sleep aussi pour pas utiliser trop le processeur)
 
c'est juste une idée, si t'as des questions hésite pas.


Message édité par Arwon le 03-03-2011 à 15:50:23
Reply

Sujets relatifs:

Leave a Replay

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