Faire une "PAUSE" dans la macro et donner la main à l'utilisateur

Bonjour à tous,

J'aurais voulu savoir s'il existe la possibilité d' arrêter la macro momentanément et de donner la main à l'utilisateur.

Qu'il puisse faire des modifications sur le fichier et appuyer sur "play" pour reprendre la macro?

Ou, suis je contrainte de couper ma macro en plusieurs parties et de leur administré différents boutons.

J'ai fais des recherches sur le net, on parle de DoEvents et de Inputbox mais les discussions que j'ai vu s'arrête toujours à mi-chemin ou ne réponde pas à mon besoin.

Est ce que quelqu'un pourrait m'aider?????

Cordialement.

Re,à priori il vaudrait mieux scinder et affecter des boutons à ces différentes parties.
Une grosse procédure se décomposera en de plus petites procédures et fonctions, cela facilitera le debugage et la maintenance

Heureusement que tu es là kiki29.
Merci de ta réponse.

Cordialement.:P

Bonjour

Comme Scinder le code en deux , ne réponds pas toujours au besoin (dans le cas de l'utilisation de boucle par exemple), voici une explication entre InputBox et DoEvents de ce que j'ai compris.. Pour moi ça marche..

InputBox : Cette fonction stop automatiquement met automatiquement la macro en pause, en attendant la saisie de l'utilisateur. cela répond a un besoin précis, mais est peu adaptable (Nombre de bouton, etc...), l'aide Excel explique très bien comment ça marche

DoEvents : cette instruction met en pause la Macro et donne la main a n'importe quelle autre application, que ce soit Excel ou non. elle a répondu a mon besoin, a savoir, j'ouvre un Formulaire, et tant que l'utilisateur, n'a pas cliquer sur certain bouton, la macro ne reprend pas...

La technique : utiliser un événement booléen ("un flag" ?) et une boucle "While" :


General :

Code:

---

1 2 3 4 5 6 7 8 9

'debut de la macro'   Flag = TRUE Do While Flag DoEvents Loop   'suite de la macro'

---

il faut que l'action de l'utilisateur modifie la variable FLAG de façon a ce quelle soit égale a FALSE

Si la variable est déclare en haut du module en dehors d'une procédure, elle sera modifiée par n'importe laquelle fonction de ce module, il suffit alors d'affecter l'action d'un bouton dans le même module et de rajouter dans l'action Flag=FALSE

Exemple avec un formulaire
Pour moi, lorsque l'utilisateur clique sur le bouton du formulaire, le formulaire se ferme et donc , la macro sort de la boucle et continue

Code:

---

1 2 3 4 5

Show NomFormulaire Do While NomFormulaire.Visible DoEvents Loop

---

A chacun de trouver une manière de créer un événement booléen en fonction de ses besoin...

Voila, j’espère que cela pourra en aider certains.

Si quelqu'un veut des précisions, n’hésiter pas..

Merci BEAUCOUP a tous les post de ce forum ont pu m'aider.


PS: désole pour les accents manquants, c'est dur dur avec un clavier QWERTY

PPS: Il y a aussi bien sur la célèbre technique du coup de boule sur l’unité centrale évoquée sur d'autre forum, qui en effet, met "en pause" la macro....

Bonjour,

Malgré le "Résolu" je me permets de poster un petit exemple. A mettre dans un module standard et à exécuter pour le test (représente ta proc) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Arret As Boolean   Sub Tempo()   Arret = True   MsgBox "Debut"   [A1].Select   Do DoEvents Loop Until Arret = False   MsgBox "Fin"   End Sub

---

A mettre dans le module de la feuille. La proc poursuivra seulement quand la valeur de A1 aura changée et à condition quelle ne soit pas vide :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Address(0, 0) = "A1" Then   If Target <> "" Then   Arret = False   Else   MsgBox "Veuillez renseigner la cellule A1 !"   End If   End If   End Sub

---

Hervé.