Discussion :

[peofofo]

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 :

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

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

[edelweisseric]

Bonjour à tous
Bonjour peofofo

Pour ma part, je mets :

Code :

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

Exit sub

à la place de

Code :

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

end

Eric

[peofofo]

merci edelweisseric

Je vais suivre ton exemple

[edelweisseric]

Bonjour à tous
Bonjour peofofo

Un complément, tu peux écrire aussi :

Code :

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

Exit Function

Eric

[peofofo]

Merci a toi