Discussion :

[Karatégirl77]

Bonjour à tous!

Voilà ma question : est-il possible d'interrompre une macro à un certain point de son déroulement (le temps par exemple de remplir un tableau), puis de reprendre l'execution lorsque l'utilisateur indique qu'il a fini (genre en cliquant sur un bouton) ?
J'imagine que ça doit être possible en passant par plusieurs macros, mais je voudrais savoir si vous connaissez d'autres solutions.

Merci à vous!

[DeaD78]

Bonjour,

Pourquoi ne pas utiliser un UserForm avec un affichage non modal ?

Code :

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

UserForm1.Show 0

Sur ce UserForm, tu pourrais mettre un petit texte "Appuyez sur OK lorsque vous avez terminé" et un bouton OK qui te ferait fermer ton UserForm.

En clair, ton code s'arrêterait à l'affichage de ce UserForm et ne reprendrait que lorsque l'utilisateur aura cliqué sur OK.

De plus, l'affichage non modal permet de continuer de toucher aux feuilles de calcul.

Qu'en penses-tu ?

[Krovax]

Le mieux passer par plusieurs macro

sinon (mais c'est pas très jolie et ca va ralentir l'ordinateur)

Code :

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

1
2
3
4
Do
DoEvents
Loop Until Range("A1") = "Bob"
MsgBox "ca fonctionne"

Lance la macro et ecrit Bob dans la cellule A1

Tu peux essayer quelque chose comme ca, l'utilisateur selectionne par exemple ok dans une cellule, ou utiliese deux bouton et une variable publique
Dans le code d'une feuille avec 2 boutons
le premier lance la macro
le deuxième sort de la boucle pour la continuer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public testtt As Boolean
Private Sub CommandButton1_Click()
testtt = False
Do
DoEvents
Loop Until testtt
MsgBox "ca fonctionne"
End Sub
Private Sub CommandButton2_Click()
testtt = True
End Sub

edit : désolé dead j'ai mis un peu longtemps a tester et je n'ai pas rafraichi Comme d'habitude

[Karatégirl77]

Merci pour vos réponses rapides.

En fait, je pensais à une solution comme celle que DeaD78 propose. Je peux pas tester ça tout de suite, mais je regarde dès que je peux. Je reviens vers vous si ça ne marche pas.