Problème avec une boucle Do.. Loop Until

Bonsoir j'ai un problème avec une boucle

-mon code est le suivant :

Code:

---

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

Dim Presse_papier As String   Private Sub Command1_Click() BlockClipboard True End Sub   Public Sub BlockClipboard(Block As Boolean) Presse_papier = Clipboard.GetText   Do DoEvents Loop Until Block = False End Sub   Private Sub Command2_Click() BlockClipboard False End Sub

---

-Mon problème c'est que lorsque je clique sur Command2 le programme quitte le boucle mais je ne sai pour quel raison il la recommence après.

Sauriez-vous comment je pourrais faire pour qu'il quitte la boucle pour de bon?

Merci d'avance

Bonjour,

parce qu'au lieu de modufier l'état de ta booléenne, tu rappelles une seconde instance de ta sub ...

écris donc ainsi (par exemple) :

Code:

---

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

Private block As Boolean   Private Sub Command1_Click() block = True BlockClipboard End Sub   Public Sub BlockClipboard() Presse_papier = Clipboard.GetText Do DoEvents Loop Until block = False End Sub   Private Sub Command2_Click() block = False End Sub

---

A tester (écrit à main levée) .....

Par simple curiosité, elle sert à quoi cette boucle ?

Merci beaucoup ucfoutu

Ton code marche parfaitement

Pour répondre à OhMonBato cette boucle me sert à bloquer le presse-papier temporairement.

Citation:

---

Envoyé par gta126

...
Pour répondre à OhMonBato cette boucle me sert à bloquer le presse-papier temporairement....

---

à le bloquer où ?

Citation:

---

Envoyé par bbil

à le bloquer où ?

---

C'est pour faire un peu comme le presse-papier d'office c'est-à-dire que le programme peut stocker plusieurs presse-papier mais pour en créer un il faut faire ajouter un presse-papier.
Mais dans les presse-papier existant je voulais faire en sorte que l'on sache le protéger c'est pour ça qu'il me fallait le bloquer tant que l'on sélectionne pas un autre presse-papier