Comment Quitter une procédure Sub

[thom02]

Bonjour,

Une question semble t'il assez simple...

j'ai une fonction sub (Test) dans lequel je fais d'abord appel à fonction1 moyennant un call.

Dans cette fonction appelée il y a une message box annuler qui si sélectionné, engendre un Exit Sub.

Je m'attendais donc à ce que cela stop totalement ma fonction Test or je remarque que le code situé sous Fonction1 s'exécute tout de meme... comment eviter cela ?

D'avance merci!!



Sub Test()

Call fonction1

Instruction....

En Sub

 

[Pierrot93]

Re : Comment Quitter une procédure Sub

Bonjour,

en lieu et place de "Exit Sub", place un "End", mais attention toutes les variables seront réinitialisées, même les "public"....

bon après midi
@+

 

[James007]

Re : Comment Quitter une procédure Sub

Bonjour,

Dommage que tu ne mettes pas toute ta macro ... parce qu'avec Exit Sub, cela devrait fonctionner ... tu peux essayer End

A +

Edit : Salut Pierrot 93 ...

 

[thom02]

Re : Comment Quitter une procédure Sub

Top merci les gars pour votre réactivité

 

[GuillaumA]

Re : Comment Quitter une procédure Sub

Sub Test()

Call fonction1

Instruction....

Exit Sub

End Sub

D'ailleur, un truc simple pour voir l'erreur s'il y a est de rajouter ça:

Sub Test()

On Error GoTo JAIUNEERREUR

Call fonction1

Instruction....

Exit Sub

JAIUNEERREUR:
tmp: MsgBox("Mon erreur:" & Chr(10) & Err.Description, vbCritical)

End Sub

 

[ROGER2327]

Re : Comment Quitter une procédure Sub

Bonjour à tous

Difficile d'être très précis sur un code aussi flou. À tout hasard, un essai de structure possible :

Sub test()
Dim f
  f = function1
  If f(1) Then MsgBox "J'arrête", vbOKOnly: Exit Sub
  f = f(0)
  MsgBox f, vbOKOnly
End Sub

Function function1()
Dim x, y As Boolean
  If MsgBox("", vbOKCancel) = vbCancel Then
    y = True
  Else
    y = False
    x = "Suite"
  End If
  function1 = Array(x, y)
End Function

​

ROGER2327
#4773

Mardi 17 Sable 138 (Saint Moyen, français, SQ)
27 Frimaire An CCXIX
2010-W50-5T14:46:41Z

​