Discussion :

[dafchap]

Bonjour,

la réponse à cette question doit-être tellement évidente que je ne l'ai trouvée nulle part : est-ce qu'il est possible de changer la valeur d'un booléen dans un module en actionnant un bouton dans un userform ? Si oui comment ?

Merci d'avance pour votre aide,

David

[unparia]

Bonjour

Oui. En la changeant.
Il faut bien évidemment que cette variable booléenne soit déclarée publique dans le module (module "indépendant" obtenu par insertion -> module et non, bien sûr le module de code du Userform)

[Invité]

Bonjour,
Le problème n'est pas tant en soit , bien que ce soit important, la déclaration de la variable mais l'interception du click!

[joe.levrai]

Bonjour,

sans préciser ton contexte d'utilisation, c'est facile de te présenter un exemple :

- dans un module standard, déclarer la variable publique qui permettra d'arrêter la boucle

Code :

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

Public bStop As Boolean

- dans un userform NON MODAL (Userform2 dans l'exemple), placer un commandbutton qui stoppera la boucle

Code :

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

1
2
3
Private Sub CommandButton_ARRET_Click()
bStop = True
End Sub

- dans un autre userform NON MODAL (Userform1 dans l'exemple), placer un textbox qui contrôlera le déroulement de la boucle + un option bouton pour démarrer la boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
UserForm2.Show False
bStop = False
Me.TextBox1.Text = "1"
 
While Not bStop
    Me.TextBox1.Text = CStr(CLng(Me.TextBox1.Text) + 1)
    DoEvents
Wend
 
End Sub

On remarquera :

- qu'en démarrant la boucle, on affiche Userform2 qui contient le bouton d'arrêt
- si on clic sur le bouton d'arrêt de Userform2, on modifie la valeur de bStop qui va stopper la boucle
- le textbox consiste simplement en un compteur qui s'incrémente à chaque tour de boucle. Ca te permet de voir que la boucle se stoppe quand le chiffre n'évolue plus ... attention c'est un type Long donc au delà de 2 milliards (et des poussières) la macro plantera par dépassement de capacité ... ce n'est qu'un exemple que je présente ici
- l'instruction DoEvents, c'est elle qui nous permettra de cliquer sur le bouton d'arrêt ... instruction puissante dont je t'invite à en consulter l'aide en ligne


Ps : j'ai utilisé deux Userform, mais un seul suffit amplement pour tout faire. Etant donné que tu vas tester et découvrir, ça va t'éviter de faire trop de clic sur le userform où la boucle tourne et de la figer .... avec l'idée qu'en fait ça ne fonctionne peut être pas (ce qui est faux)

[dafchap]

Désolé pour mon manque de réactivité, j'ai finalement trouvé une autre solution.
Mais vos explications me seront très utiles pour la suite. Notamment l'exemple de joe.levrai.

Merci à vous 3,

David