[VBA-E] Pause arréter par l'appui d'une touche

Version imprimable

24/05/2006, 10h52
gengen

[VBA-E] Pause arréter par l'appui d'une touche

Bonjour,

J'aimerai pouvoir arréter le fonctionnement d'une macro à un moment donné et pouvoir reprendre le traitement suite à l'appui sur une touche.
Je travail sur Excel avec des macros VBA. Le systéme serait equivalent en fait à mettre un point d'arret dans la macro. L'utilisateur devra avoir la main sur Excel pour visualiser des données.

Merci de vos réponses.
24/05/2006, 10h56
SfJ5Rpw8

voir instruction stop :f1:;)
24/05/2006, 11h10
gengen

Oui l'instruction stop arrete bien la macro à l'endroit voulu mais comment la reprendre à partir d'Excel??? Et l'instruction stop ouvre VB editor ce que je ne veux pas du tout , il faudrait que ca soit transparent au niveau utilisateur, juste que l'utilisateur appui sur une touche dans Excel et le macro continue .
24/05/2006, 11h16
jmfmarques

utilisation d'une boucle sur la valeur boléenne d'une variable toto
Au er appui toto = true
au eme appui toto = false
et tant que toto = true on ne fait rien (doevents, par exemple)
24/05/2006, 11h36
gengen

Oui merci mais quelle est la fonction pour récupérer l'appui sur un bouton?
merci
24/05/2006, 11h39
jmfmarques

utilisation de l'événement click.
ps : tu as bien un userform ?
24/05/2006, 11h52
gengen

Non justement je n'ai pas de userform à ce moment la de l'application !!!
24/05/2006, 11h57
jmfmarques

Fais-en une, alors (toute petite au besoin) avec un bouton de commande dont tu utilises le click
24/05/2006, 12h03
gengen

Je veux en faire une mais après je n'aurai plus la main sur mon fichier Excel !!
24/05/2006, 16h44
zazaraignée

Salut

l'arrêt de la macro se produit sous quelle condition? On peut voir le bout de code ent question?
24/05/2006, 18h33
ThierryAIM

Citation:

Envoyé par jmfmarques

utilisation de l'événement click.
ps : tu as bien un userform ?

Pas besoin de UserForm, un bouton de commande placé directement sur une feuille Excel possède aussi un évènement Click ;)

bonjour

Peux tu préciser le traitement à appliquer dans la macro

Excel n'est pas vraiment prévu pour gérer les timers mais tu trouveras ci dessous un exemple qui incrémente la cellule B1 toutes les secondes à paartir du CommandButton placé dans la feuille (procédure à adapter en fonction de ton projet)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'----- au niveau de la feuille---------
'-------contenant le CommandButton-----
Option Explicit
 
Private Sub CommandButton1_Click()
 
If Btn = False Then
    Btn = True
    Temporisation
    Else
    Btn = False
End If
 
End Sub
'-------------------------------------

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
'------ dans un module standard -------
Option Explicit
 
Public Btn As Boolean
 
Sub Temporisation()
'timer toutes les secondes
Application.OnTime Now + TimeValue("00:00:01"), "maMacro"
End Sub
 
 
Sub maMacro()
'
'incementation de la cellule B1
Range("B1") = Range("B1") + 1
'
 
If Btn = False Then
Finir
Exit Sub
End If
 
Temporisation
End Sub
 
 
Sub Finir()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), _
"maMacro", , Schedule:=False
End Sub

bonne journée
michel

@SilkyRoad :désolé , mais j'suis pas sur que ton code corresponde au fonctionnement demandé alors je poste le mien ...

@gengen ... : Commence par coller dans ta feuille excel un bouton de la boite à outils controle et lie le à ce code :
Code:

1 2 3 4 5 6 7 8 9 Private Sub CommandButton1_Click() bEnPause = Not bEnPause If bEnPause Then CommandButton1.Caption = "Marche" Else CommandButton1.Caption = "Pause" End If End Sub
ensuite dans un module
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Public bEnPause As Boolean 'Variable globale ... Sub MaProcedure() 'Varible dFin utilisée seulement pour créer une boucle 'simulant le traitement en cours Dim dFin As Date 'Variable Date de fin de boucle dFin = Now + TimeSerial(0, 2, 0) While Now < dFin ' Boucle Simulant la boucle finale de cacul DoEvents 'Obligatoire !! sinon pas d'appui possible sur bouton While bEnPause DoEvents 'Boucle ici en mode pause Wend ' Traitement à effectuer ici... ' If i > 65000 Then i = 0 i = i + 1 '--- Wend End Sub
bon ne sachant pas ce que fait ton code .. j'ai fai une boucle qui tourne pendant 2 minutes... à toi de remplacer cette boucle , et d'organiser ton code pour qu'il passe en permanence dans la boucle de pause ...