sortir d'un fonction VBARésolu

Question

Bonjour,

J'ai cr&#233;e un userform avec 2 boutons, le premier lance une fonction (test dans l'exemple ci dessous), et je voudrais que le second me sorte de cette m&#234;me fonction.

Merci pour vos suggestion
------------------------------------------------------------------------------------
Public Sub CommandButton1_Click()
    Call test
End Sub


Public Sub CommandButton2_Click()
 ????
 End Sub


Public Function test()
While x <> 10000000
    Feuil1.Range("A1").Offset(x, 0) = 1
    inc (x)
Wend
End Function
------------------------------------------------------------------------------------

BasicInstinct · Accepted Answer

dim bAnnule as boolean
Public Sub CommandButton1_Click()
     bAnnule=false
    Call test
End Sub 
Public Sub CommandButton2_Click()
 bannule=true
 End Sub


Public Function test()
While x <> 10000000 and not bAnnule
    Feuil1.Range("A1").Offset(x, 0) = 1
    inc (x)
   doevents
Wend
End Function

 BasicInstinct

segumat · Answer

Merci pour la r&#233;ponse, c par la que je suis pass&#233; en oubliant le doevent, par contre ce que je recherche c'est l'oppos&#233;e de la proc&#233;dure CALL permettant de stopper une fonctions.

BasicInstinct · Answer

ca existe pas &#224; ma connaissance.

 BasicInstinct

zifnig · Answer

Tu peux utiliser la commande exit :

Soit exit sub :

Public Function test()
While x <> 10000000
  if bAnnule then
    exit sub
 endif
    Feuil1.Range("A1").Offset(x, 0) = 1
    inc (x)
   doevents
Wend
End Function

soit utiliser une boucle FOR et un Exit For.

Public Function test()
for x = 1 to 10000000
  if bAnnule then
    exit for
 endif
    Feuil1.Range("A1").Offset(x, 0) = 1
   doevents
next x

End Function

Zifnig
http://zifnig.free.fr

Sortir d'un fonction VBA

4 réponses

Discussions similaires