break en vba

bonjour,
j'ai un bouton sur un classeur. Quand on appuie sur ce bouton, j'ai codé plusieurs boucles les unes à la suite des autres. Dans la première boucle, j'ai envisagé plusieurs cas (avec un select case )et j'aimerais que si l'un des cas s'avère vrai alors on arrête tout, j'affiche une msgbox explicitant le probleme mais j'aimerais qu'on ne lise pas la suite du code. Existe-t-il une instruction du style "break" en vba..?

merci d'avance

il existe
plusieur possibilités
end
exit sub
goto
dans ton cas, si tu veux faire une gestion d'erreur c'est goto

Code:

---

1 2 3 4 5 6 7 8 9 10 11

select case sortie case non msgbox "je reste" case oui goto gestion_erreur end select exit sub gestion_erreur : msgbox " je sort" end sub

---

c'est impeccable le exit sub fonctionne super..je faisais du "end sub" et il ne voulait pas...
merci beaucoup

bonjour,

Il existe en effet la solution du goto mais il est conseillé de n'utiliser que pour de la gestion d'erreurs.

Normalement, quelqu'en soit les structures de contrôles utilisées et l'algorithme mis en place, on peut toujours codé ces sorties prématurées sans faire de goto.

Il existe cependant quelques raccourcis simplifaint les algorithmes:
Exit Do, Exit For, Exit Sub...


alsimbad, le scénario que tu proposes est intéressant mais risque de rendre limité la véritable gestion d'erreurs... Dans un cas de ce genre, il est préférable de provoquer une erreur de façon à ce qu'elle soit traitée comme telle par le programme:

Code:

---

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

Sub test() On Error GoTo Err_Handle:   '... If ... then Err.Raise vbObjectError, "Mon programme", "Donnée invalide...."   ...   End_Handle: Set oRst = Nothing 'on mets ici tout ce qui doit être exécuté dans tous les cas ... Exit Sub   gestion_erreur: MsgBox Err.Description, vbExclamation 'solution simple ici, mais on peut renvoyer à un gestionnaire d'erreurs que l'on a développé... Resume End_Handle End Sub

---

Bon dev