Discussion :

[gengen]

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.

[SfJ5Rpw8]

voir instruction stop

[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 .

[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)

[gengen]

Oui merci mais quelle est la fonction pour récupérer l'appui sur un bouton?
merci

[jmfmarques]

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

[gengen]

Non justement je n'ai pas de userform à ce moment la de l'application !!!

[jmfmarques]

Fais-en une, alors (toute petite au besoin) avec un bouton de commande dont tu utilises le click

[gengen]

Je veux en faire une mais après je n'aurai plus la main sur mon fichier Excel !!

[zazaraignée]

Salut

l'arrêt de la macro se produit sous quelle condition? On peut voir le bout de code ent question?

[ThierryAIM]

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

[SilkyRoad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

@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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...