Discussion :

[ditoni mapemba]

Salut a tous,
Et bonne année 2007,

J'ai une question : je cherche desesperement a creer un bouton start qui demare ma macro et un bouton stop qui l'arrete mais je ne sais pas comment faire. Si quelqu'un veut bien me donner un coup de main
Merci d'avance pour vos réponses.

NB : je suis debutant

[AurelieB]

Il faut creer 2 boutons, voici le code que je mettrais

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
 
Private Sub Cmd_start_Click()
 
    cmd_stop.Enabled = True
    StopRequired = False
    Timer1.Enabled = True
    Call Timer1_Timer
    While _YOUR_CONDITION_ And Not (StopRequired)
        ......YOUR CODE
        DoEvents       ' pour pouvoir recuperer l'event de cmd_stop_Click
    Wend
    cmd_stop.Enabled = False
    Timer1.Enabled = False
    If StopRequired Then 
      goto End sub
    else
       YOUR CODE
    end If
End Sub
 
Private Sub cmd_stop_Click()
    StopRequired = True
    cmd_stop.Enabled = False
End Sub

Bon courage

[ditoni mapemba]

Merci pour ton aide AurelieB,

mais je ne sais pas trop comment l'utiliser :

Voici un bout du code :

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
Private Sub Cmd_start_Click()
 
    cmd_stop.Enabled = True
    StopRequired = False
    ''Timer1.Enabled = True
    'Call Timer1_Timer ==> Je connais pas cette procedure ou comment la coder
  ' While _YOUR_CONDITION_ And Not (StopRequired)
   While (StopRequired)
  '      ......YOUR CODE
        Call Test_Macro1
        DoEvents       ' pour pouvoir recuperer l'event de cmd_stop_Click
    Wend
    cmd_stop.Enabled = False
    ''Timer1.Enabled = False
    If StopRequired Then
      'goto End sub
      Exit Sub
    Else
'       YOUR CODE
        Call Test_Macro1
    End If
End Sub
 
Private Sub cmd_stop_Click()
 
    StopRequired = True
    cmd_stop.Enabled = False
End Sub
 
Sub Test_Macro1()
 
'.........

NB : Merci pour vos reponses

[AurelieB]

Bonsoir
Je vais essayer d'etre plus claire.
faut dire que j'ai + de tps que ce matin.

Pour Timer1, cest une erreur de ma part 1 truc que j'ai copie de mon appli et qui na pas sa place ici.

On cree 2 boutons cmd_start et cmd_stop
Facultatif:
Au depart si on veut pas que l'utilisateur appuie sur cmd_stop on met sa propriete "enable" a FALSE

Apres il faut prevoir 1 moyen de sortir de la macro et c'est la variable StopRequired, il faut l'introduire dans une boucle ou elle sera verifiee regulierement.
Ca donne

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
Private Sub Cmd_start_Click()
 
    cmd_stop.Enabled = True       'facultatif
    StopRequired = False
 
    While Not (StopRequired)
        '......YOUR CODE
        DoEvents       ' pour pouvoir recuperer l'event de cmd_stop_Click
    Wend
    cmd_stop.Enabled = False 'facultatif
 
    If StopRequired Then    ' on verifie si la cause de sortie
      exitsub
    else
       'YOUR CODE  si necessaire
    end If
'FIN:
    cmd_Stop.enabled = false
    StopRequired = false
End Sub
 
Private Sub cmd_stop_Click()
    StopRequired = True
    cmd_stop.Enabled = False
End Sub

On peut aussi faire une sub MacroTest1 appelee par cmd_start, mais il faudra qu'elle puisse s'interrompre si StopRequired devient TRUE.
A toi de jouer

[Vld44]

+déclaration des variables =)