Discussion :

[Duddy]

Bonjour le Forum,

Ne sachant pas trop comment formuler ma question pour réaliser une recherche sur le forum, je vais poster ma demande.

J'ai recherché dans les tutos des formulaires une réponse, mais je n'ai pas trouvé de solution.

Je cherche à actionner un bouton ou togglebutton sur un formulaire durant l'exécution du code afin de pouvoir stopper la macro.

Cela est-il réalisable car je n'ai pas la possibilité de cliquer sur le contrôle?

Merci d'avance pour les réponses.

[Fvandermeulen]

Salut,

De prime abord je ne pense pas que ce soit possible, mais quelle serait la raison pour stopper la macro ?

Je vois plutôt un genre de point d'arrêt, par exemple après une première partie du code, mettre 'une message box' qui demande si on veut continuer.

A+

[Invité]

Bonjour

Cela est possible, mais tout dépend de ce que fait le code, voici un exemple :

Un formulaire avec un bouton de commande.
Une déclaration de variable booléenne en publique

Voici ce que cela 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
Public blnStop As Boolean
 
Private Sub Commande5_Click()
    blnStop = True
End Sub
 
Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 20000
        Debug.Print i
        DoEvents
        If blnStop = True Then
            MsgBox "stop"
            Exit Sub
        End If
    Next i
End Sub

un click sur le bouton modifie la variable et est testé.

Mais tout dépend de ce que fait ton code.

Philippe



J'ai fait le code sous Access, mais le principe doit être valable sous Excel.

Philippe

[Duddy]

Bonjour le Forum,

Merci Philippe et Fvandermeulen pour vos réponses.

Tout d'abord, pour répondre à Fvandermeulen, je souhaite stopper l'exécution de la macro, car lorsque je traite un fichier qui contient un volume important de lignes (60 à 100 000 lignes) et que l'heure de partir arrive, c'est mieux de pouvoir sortir proprement et ainsi de poursuivre le lendemain.

Ensuite, j'ai testé le code de Philippe, sur un fichier semblable à celui qui me pose souci et cela à l'air de fonctionner.

Je vais essayer de le passer sur le bon fichier, mais je suis étonné que mon idée de départ ne marche pas. En effet, j'ai paramétré un TOGGLEBUTTON, un peu comme Philippe, mais je ne peux jamais cliquer dessus alors que mon Form est non modal et là avec Philippe cela est possible.

Il est vrai aussi que je n'ai pas envoyé de code avec l'action "CLICK", je me suis juste contenté de contrôler la position du TOGGLEBUTTON au départ de ma boucle d'exécution et ainsi le faire sortir.

Merci à vous.

[Duddy]

Bonjour le Forum,

Ce matin, j'ai essayé la méthode de Philippe sur mon appli.

Cela ne fonctionne pas. Je n'ai pas accès à aucun bouton du formulaire et donc l'action "CLICK" n'est pas réalisée.

En fait, j'ouvre un fichier "xls" depuis mon formulaire, celui-ci est à alimenter en ajoutant des informations recherchées depuis une autre application que je lance aussi avec la macro.

Comment récupérer le focus sur le formulaire et ainsi lui permettre des actions sur ces boutons?