Créer un bouton Pause

Bonjour

J'ai un Userform qui contient divers boutons dont un bouton Pause.

Je souhaiterais qu'en cliquant dessus tout s'arrête et qu'en recliquant à nouveau sur ce même bouton tout reparte.

J'avais créé un MsgBox qui s'ouvrait lorsqu'on cliquait sur le bouton Pause et évidemment cela fonctionnait parfaitement mais je voudrait une solution où on reclique sur le bouton et donc sans MsgBox .

Merci par avance.

Bonjour toutes et tous

@Excel-75011

Difficile sans classeur, ou un bout de code

le msgbox le code donne quoi ? est-ce une autre userform qui s'ouvre ?

mais là, c'est un peu flou

...

crdlt,

André

Excel-75011 a écrit :

Bonjour

J'ai un Userform qui contient divers boutons dont un bouton Pause.

Je souhaiterais qu'en cliquant dessus tout s'arrête ....

Quand le le PC s'arrête, l'userform et le bouton disparaîssent ...

Bonjour

Et bien le simple fait d'afficher un MsgBox arrête l'exécution d'un programme peut importe le programme qui tourne et peu importe le texte dans le Msgbox.

Donc tant que je ne ferme pas le MsgBox cela fait une Pause. Mais je ne trouve pas cela esthétique...

J'espère que c'est plus clair.

Merci

Excel-75011 a écrit :

Bonjour

Et bien le simple fait d'afficher un MsgBox arrête l'exécution d'un programme peut importe le programme qui tourne et peu importe le texte dans le Msgbox.

Absolument pas ! Tu oublies que tu es dans un environnement multi-tâche.

Tu ignores probablement que plusieurs macros du même fichier peuvent fonctionner simultanément.

Afficher un Msgbox n'interrompt que la macro qui contient ce Msgbox.

Ton userform est-t'il Modal ou Non Modal ?

Bonjour

Mon Userform est modal.

Merci

Sans voir l'ensemble du code VBA et sans connaître la procédure à interrompre, il va être difficile de t'aider.

Bonjour toutes et tous

coucou Patrice33740

@Excel-75011 petite idée @ méditer :
avec un ToggleButton1 (Bouton Bascule) (de ton userform)

1/le caption du toggle button à l'initialise de l'userform par exemple 'Pause'

déclenchement d'une temporisation: Application.Wait(Now + TimeValue("0:00:02")) ' facultatif

' exemple

If Application.Wait(Now + TimeValue("0:00:02")) Then
' mon code ou mes codes + changement texte de mon tooglebutton ( ToggleButton1
End If
' ...............

hop! le ToggleButton1 change la caption de celui-ci est met 'stop'
lorsque le mot stop est visible sur la caption du ToggleButton1
on bascule sur une autre macro ou autres pour stopper le tout etc.

Note: ne pas oublier de mettre le tooglebutton1 lors de l'initialise de l'userform d'origine soit la caption de sa propriété de celui-ci 'Pause' et lorsque l'on décharge l'userform

l'avantage de ce tooglebutton ne sera qu'un seul bouton et qui pourra suivant la propriété de sa caption faire le/les macro(s) souhaités

en espérant que cela puisse t'aider

crdlt,

André

Bonjour …

On peut toujours s’amuser. Cela vaut-il le coup dans un autre contexte ?

André , c’est la première idée que j’ai eue même avec le temps qui s’écoule mais n’étant pas satisfait des premiers résultats de bascule (DoEvents oblige), j’ai déchanté , laissé tomber.

Bonsoir

Merci pour vos idées.

J'ai simplement ouvert un nouvel Userform qui de fait bloque le fonctionnement de mon programme.

Dès que je quitte le Userform, le programme redémarre.

Cela fonctionne parfaitement.

Merci