sortir d'un fonction VBA

Bonjour,

J'ai cré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ê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
------------------------------------------------------------------------------------

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

ca existe pas à ma connaissance.

BasicInstinct

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