[E-02] Arrêter un sub à tous moment
Bonjour à tous,
J'ai cherché une solution pour arrêter un sub à tous moment.
J'ai trouvé la solution avec Goto, mais comme vous tous cette solution ne me plait guerre.
J'ai alors essayé de mettre uniquement un petit mot 'end'
Cette solution est incroyable, elle me permet en gros d'arrêter le sub en cours.
Exemple:
Code:
1
2
3
4
5
6
| Private Sub CommandButton1_Click()
If MsgBox("Cliquer sur non et on arrête le sub, cliquer sur oui et on continue", 4 + 48, "Avertissement") = vbNo Then
End
End If
MsgBox "Vous avez cliquez sur Oui", 0 + 64, "Information"
End Sub |
Ce code foncionne avec excel [E-02].
N'ayant rien trouvé sur ce mot end dans les tutos vba,
j'aurais aimé savoir si également chez vous, ce morceau de code fonctionne avec d'autres versions?
Merci a vous de faire l'essai ;)
