Discussion :

[ouardia]

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

[alsimbad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouardia]

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

[mout1234]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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