jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 2 sept. 2008 à 09:23
Salut,
C'est bien parce que c'est le début de journée... Mais en cherchant un peu dans le forum tu aurais trouvé SEUL.
Private Interrupt As Boolean
Private Sub CommandButton1_Click()
'Lors de l'appui sur Interrupt passe a TRUE
'et donc la boucle plus bas terminera
Interrupt = True
End Sub<hr />
Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To 30000
DoEvents
Label1.Caption = CStr(i) 'pour bien voir que la boucle fonction
If Interrupt Then Exit For
Next
Call MsgBox("Sorti de la Boucle")
End Sub<hr />
, ----
[code.aspx?ID=41455 By Renfield]